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4051 Aids Biomechanics Research 
at University of Oregon. ( 

Sports, Medicine, Industry, and [ 
Public Safety all Benefit. 



by Terry Davis 
TEKniques Staff 

Biomechanics is a science that studies the 
human body in motion. By applying prin- 
ciples from mechanics and engineering, 
biomechanists study the forces that act on 
the body, along with the effects they 
produce. This involves detailed analysis of 
movement, to find new and meaningful 
information about movement and related 
forces. The ultimate goal is better understan- 
ding of movement and movement-related 
problems in skill performance, sports 
medicine, and equipment design. 

At the University of Oregon, in the Physical 
Education Department's Gerlinger Hall, Dr. 
Barry Bates heads up the Biomechanics 
Sports Medicine Laboratory. The primary 
thrust of his research there is concerned with 
the use of this dynamic science in the design 
of human-related machines and equipment. 
He's applying biomechanics principles to the 
problems of industry and sports medicine; 
much of that effort is directed toward 
movement-related problems of the lower 
extremities. And to do so, he's built a system 
for Biomechanical Analysis, in which the 
4051 Graphic System plays an important 
part. 

One major area of research is in the 
biomechanics of jogging and distance run- 
ning, especially in relation to the design and 
evaluation of shoes. In addition, Dr. Bates 
has consulted in the biomechanical aspects 
of injury-related civil cases, and investigated 
the causes (and possible methods of preven- 
tion) of injuries in the wood products in- 
dustry. 

Improving Running Shoe Designs 

With the current surge in enthusiasm for 
distance running as sport and exercise, and 
the associated upswing in injuries, the design 
of running shoes is an excellent area for 
investigation. Dr. Bates and his colleagues 
are trying to answer a number of questions 
that relate to the design of running shoes. 
How, for instance, do diftcrent shoe 
materials and construction types alfect the 
functioning of the lower extremity? And how 
do different subjects and shoes interact, 



especially with respect to ground reaction 
forces — those forces that appear when the 
moving body mass meets Solid ground. What 
happens during the support phase of run- 
ning, that causes runners to become injured? 

In addition, total body mechanics during the 
impact (breaking) and loading (propulsion) 
phase of running are being studied as a 
function of running speed and type of 
footgall. As the answers to these questions 
begin to appear, laboratory personnel are 
able to assist in the development of material 
and performance standards in conjunction 
with the American Society of Testing 
Materials (ASTM). 

The key difference between Dr. Bate's 
approach to shoe design and evaluation 
compared to other methods, such as those 
used by the widely-read Runner's World 
survey,is the dynamic nature of the tests with 
the emphasis placed on the runner instead o^ 
the shoe. In the survey, the potential interac- 
tions between the shoe and the human foot 
and leg are ignored. Says Bates, "Their tests _ 
are mechanical, not biomechanical. In other 
words, they take a shoe, crank it into a 
machine, and test it. You can bend, twist, 
hammer, tear, and sand a shoe, but until you 
put afoot in it, it's not functional. Dynamic 
function must be evaluated, in relation to 
healthy runners as well as injured ones." 

Reflecting on the problems that he's tackled, 
Dr. Bates says, 'T think we're helping to 
make better shoes. Two primary factors 
contribute to shoe-related injuries: (1) lack 
of ability to absorb shock, and 
(2) inadequate rear foot control. We haven't 
found a shoe so far that provides both of 
these important functions. We're working 
hard on a shoe here at the lab that does 
combine both." To do that, Dr. Bates is 
drawing science and technology into an area 
that,, until now, has been largely a guessing 
game,.defaultingintothecourt of the fashion 
designer. In this process, the primary data 
collection and reduction equipment being 
used all functions around and/ or in conjunc- 
tion with a 4051 Graphic System. 

The System 

The system involves several pieces of equip- — 
ment that gather two basic kinds of data for 
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Fi}>. 1 . Dr. Bates runs across the force plate during 
dynamic shoe ieslini>. as a research assistant 
walihes the system display. 

(he biomechanics studies. One is a Kistler 
Force Platform, which is used primarily for 
the running studies. It's set up during run- 
ning tests under the grandstands at nearby 
Hayward Field, and is interfaced to the 405 1 
through a TransEra A-to-D converter. To 
test the interaction between shoes and 
runners, test subjects run on the platform 
wearing various typos ol shoes (F'igurc I). , 
I he platform can read forces in several 
different directions, as the runners contact it. 
The analog signal generated is converted to 
digital form; the digital data is then proccess- 
ed by the 4051. 

While running on the platform, the runners 
are also filmed at 200 frames per second with 
high-speed Super-8 mm cameras. These 
films provide additional data input for the 
system. They're played back on a projector 
that's capable of stop action, and projected 
on the surface of a Numonics digitizing 
tablet. This allows the researchers to digitize 
the positions of various key parts of the 
anatomy during the phases of running. (This 
method is used in other research projects as 
well, as we'll see later.) Running speed is 
monitored with a photoelectric timing 
system. 

Digitized movie data is also input to the 
4051, to be processed into a graphic rep- 
resentation of total body mechanics during 
running, or to provide additional data as 
required to supplement the force platform 
data. Figure 2 is a representation of the 
digitized film data of two views of the runner. 
Viewing running as a total body activity 
actually provided the starting point for 
research on running and associated injuries. 
That research led to increased emphasis on 
evaluating the functional aspect of the lower 
extremity, especially foot functions. Shoe 
design naturally evolved as a primary in- 
terest area. 




Fig. 2. Lateral and posterior views of the lower extremity, drawn from digitized film data. Positions 
shown are (a) prior to contact, (b) begin pronation, (c) maximum pronation, (d) end pronation, 
e) after take-off. 
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Shoe Test Procedures 

A typical session of collecting data might 
involve evaluating five different shoes worn 
by five different runners. Each runs across 
the force platform, under specified con- 
ditions, until a number of successful trials are 
recorded. During the tests, conditions are 
varied for each runner and between different 
runners, to provide systematic variation of 
the tests. Runners are also given as much 
time as they desire between trials and 
between conditions, to rest and to become 
accustomed to each new condition. 

A key to accurate data fromthese trials is the 
definition of an acceptable trial. For this 
research, an acceptable trial is defined as one 
where the runner contacts the force platform 
in a normal stride pattern at a designated 
pace. Each runner will typically perform 10 
successful trials under each condition, 
translating to about 1 — I 1/2 hours to per- 
form the 50 trials. 

Running speed is monitored and controlled 
for the purposes of the study; the average 
pace is equivalent to a 5.5 to 6. 5 minute mile. 
Data from the force plate is sampled at 1000- 
1200 Hz during the running trials. To pre- 
vent "abnormal" footplants (and associated 
invalid data) due to runners reaching or 
shortening their strides as they cross the 
force plate, or having only part of their foot 
on the plate, all data samples are visually 
inspected before storage. The A-D 
Converter ROM Pack has a graphing func- 
tion that allows all channels of collected data 
to be graphed using a single function. 
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Fii^. J. An example of processed data from the force 
plate, tabulated by the 4051, to be used for later 
(tria lysis. 

'! he researchers are looking at three primary 
forces that are directly involved with foot 
and lower leg function during running. The 
vertical force is the force exerted downward 
by the body mass as a result of gravity. It is 
the largest force, and is related to the shock 
absorbing characteristics of the shoe. The 
other two forces that they are examining are 



the anteroposterior and medial-lateral. The 
anteroposterior force is the force of propul- 
sion and braking, exerted in the direction of 
travel. The medial-lateral force occurs across 
the foot, perpendicular to the direction of 
motion, and is related to the shoe's ability to 
provide rear foot control. This force occurs, 
for instance, as the foot rolls inward to 
absorb the vertical shock. 

Once the researchers have gathered their test 
trial data (and the samples have passed the 
initial visual check), they must be evaluated 
by looking at the reactions of the various 
subjects to the different conditions. A 
preliminary step in evaluation is dividing the 
amplitude of the force data by the body mass 
of the runner, to normalize the data and 
allow comparison of data between different 
runners. The data samples are processed 
automatically by the 4051; copies are made 
with the Hard Copy Unit. Figure 3 shows a 
sample printout of processed data for 10 
trials for one subject and one condition. 
Data curves are then prepared, graphing the 
force amplitude as a function of time. 

Dr. Bates then examines the data statistical- 
ly, using two methods of curve evalution. 
The first method averages the curves and 
then evaluates the average curve. The second 
method identifies specific curve events on the 
original curves, and then computes averages 
for the events. These two techniques usually 
provide slightly different information. 

As apart of the evaluation process, Dr. Bates 
uses the 405 1 to compute 10 trial averages for 
all subjects under each condition. In addi- 
tion, statistical analyses are performed using 
programs they've developed for repeated 
measures analysis of variance. The com- 
parison information from the curves consist 
of a number of values: 

• positive, negative, algebraic, and absolute 
cumulative impulse values, 

• minimum, maximum, and average force 
values, 

• total and average force and deviation 
values, and 

• temporal characteristics oi' specific curve 
events. 

All of these values can be obtained for the 
entire curve., for a portion of the curve, or for 
a scries of successive time intervals. 

Some Graphic Examples 

Figure 4 is a graph showing the average 
vertical force curves of five key test con- 
ditions for one subject ; Figure 5 shows the 
medial lateral force curves for the same 



subject and conditions. For comparison, 
Figures 6 and 7 show the same curves for a 
single condition, for all subjects. A visual 
check of these curves reveals some in- 
teresting information. For instance, it 
appears that the differences between subjects 
for one given condition are greater than the 
differences between conditions for a single 
subject. Figures 6 and 7 provide additional 
detail, showing that different runners res- 
pond quite differently to the same shoe. 
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Fig. 4. Average Vertical Force curves for one 
subject, for all test conditions. 
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Fig. 5. Average Medial-Lateral Force curves for 
one subject, for all test conditions. 
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Fig. 6. Average Vertical Force Curves for one 
condition, for all test subjects. 
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MEDIAL -LATERAL FORCE 




Fig. 7. Average Medial-Lateral Force curves for 
one test condition, for all test subjects. 

Analysis of Variance statistical techniques 
were also applied to these curves. The 
analysis revealed a significant interaction 
between subjects and conditions, for each of 
the variables examined. This statistical 
check, performed with the ANOV A program 
written by Dr. Bates (see Applications 
Library Abstract #51/00-5702/00, TEKni- 
ques Vol. 4 No. 4), supported the initial 
observations. 

Important Factors in Shoe Design 

Some of the conclusions reached in this 
research have already been alluded to. In the 
vertical area, the -first maximum vertical 
component relates to the shoe's ability to 
labsorb shock at ground impact. The second 
maximum vertical component relates to 
forefoot loading. The average vertical force 
simply provides a composite rating of the 
shoe's ability to provide protection from this 
major force component. The vertical force 
component makes up about 85% of the total 
force impulse applied to the foot. 

The average medial-lateral force is the factor 
that relates to stability and control during 
running. The average force for the period 
between 30 — 60% of the support period 
relates to foot control during that part of the 
support period when the foot is at or near 
maximum pronation. 

From this research, one important fact has 
emerged, conflicting with previous shoe sur- 
veys: there is no one best shoe for all runners. 
Since all individuals are different, with 
varying anatomical and biomechanical per- 
formance characteristics, each interacts 
differently with a shoe. A best shoe, with this 
new data in hand, can only be designated on 
the basis of averages. So the one that has the 
highest average values for the important 
design factors identified might be considered 
best. 

Even then, it must be realized that there will 
be individuals for which this "best average" 



shoe will not be a good fit. But the 
characteristics that this research has iden- 
tified can be used as a basis for fitting the 
correct shoe to each individual, on a scien- 
tific basis rather than a stylistic one. This 
will, hopefully, be especially important to 
those who find that injuries are interfering 
with their running performance and enjoy- 
ment. 

Other Biomechanics Applications 

Causes for a Fall. In a recent legal consulta- 
tion, Dr. Bates was called upon to investigate 
the biomechanical aspects of a fall-related 
injury. In this incident, building construction 
had resulted in a temporary sidewalk ramp. 
Several falls happened at that location; one 
resulted in serious injury. The question 
raised was: Did the design of the ramp 
contribute to the fall? A ramp of identical 
angles was constructed in the Biomechanics 
Laboratory, and test subjects were filmed 
attempting to negotiate the ramp ( Figure 8). 
The digitized film data was fed into the 405 1 
for analvsis. 




Fig. 8. A test subject attempting to negotiate the 
lab's ramp duplicate. The marks show key points 
to he digitized from film (f the attempt. 

The results supported the claims of the 
injured party. The ramp design was such 
that, as a person walked up the ramp, the 
force through the front foot at contact was 
directed upward in front of the -body mass 
center, causing the body to be rotated 
backward and resulting in a fall. Figure 9 
illustrates this unsuccessful attempt. In order 
to successfully negotiate the ramp, the sub- 
ject had to make a conscious effort to lean 
into the ramp, so that the force would be 
directed through or behind the body mass 
center. 

Green Chain Research. In the lumber in- 
dustry, the job of handling green lumber is a 
common starting point in lumber mills. It is 
also a common source of back injuries. Dr. 
Bates has applied the same biomechanical 




Fig. 9. A digitized representation of an unsuccesful 
attempt to negotiate the duplicate ramp. Note that 
the ramp throws the force ahead of the body mass, 
making it difficult to make it up the ramp. 

analysis principles to the task of "pulling 
green chain" to define and better understand 
the demands of the job. Figure 10 shows 
initial analysis of the green chain task. The 
purpose of the evaluation was to design and 
manufacture a testing machine that would 
simulate the job performance requirements 
in order to identify, in advance, those can- 
didates that possess the physical 
qualifications to perform the task success- 
fully. 




Fig. 10. A digitized representation of a worker 
"pulling green chain" in a lumber mill. This may 
later lead to testing equipment that will help prevent 
injuries in this job. 

The Future 

Biomechanics research is continuing at the 
University of Oregon and elsewhere, as an 
exciting field of research with down-to-earth 
applications. Each discovery of bio- 
mechanical relationships leads to new areas 
where those relationships can be applied. 
These applications lead to safer designs, 
increased productivity, and, in some cases, 
increased enjoyment. And Desktop Com- 
puter Graphics, through the 4050 Series 
Graphic Computing Systems, will continue 
to play an important part in graphing the 
data and graphically displaying the dis- 
coveries. Jmf^ 

Tekniques would like to thank Bob Bublitz. Tektronix Sales 
Engineer in Portland, for bringing this application to our 
attention. In addition, Bob put us in contact with the Eugene 
Criminal Justice Data System for the feature article in Tekniques 
Vol. 4 No 3. And, of course, thanks also to Dr. Bates for his 
invaluable assistance in preparing this article. 
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New ROM Pack Adds Time 
Functions to 4052 and 4054 



( 



by Dave Barnard 
Tektronix, Inc. 
Wilsonville, OR 

We've discussed new ROM Packs previously 
in TEKniques, but here's one that's different. 
For the most part, ROM Packs offer speed 
or convenience improvements over their 
BASIC program counterparts. But the new 
4052R09 adds five new commands that have 
no equivalents in 4050 BASIC. The Real 
Time Clock ROM Pack combines hardware 
and firmware to add new timing possibilities 
to the 4052 and the 4054: 

• Time and Date— set time and date after 
you power up the system, then forget it. 
Later you can ask, "What time is it?"; the 
ROM Pack will return the current time 
and date. 

• Elapsed Time — set an elapsed time 
counter to zero, and start it counting in 
0. 1 second increments. You can then read 
its value. These steps let you measure the 
time between events in a program. 

• Vectored Time Interrupts — set any 
desired time interval, with 0. 1 second 
resolution. When the set time interval 
expires, your program can be interrupted 
(Like a User-Definable Key) by a branch 
to 4050 BASIC line number 84. 

The new functions are accessed through the 
4052 or 4054 processor with added com- 
mands, but the details are handled outside 
4050 BASIC. Like other ROM Pack com- 
mands, these five new ones can be used from 
a program or directly from the keyboard. 

Now let's look at the commands and see what 
they can do. 



Time and Date Functions 

Have you ever wanted to tag data with time 
and date of acquisition? Or programs with 
time and date of entry, or revision? Or have 
you ever wanted to annotate printer or 
plotter output with time and date, so you 
could later determine the most recent copies? 
Two of the five new commands answer these 
needs . 



• "SETIME"— sets the clock time and date 
to initiaUze the ROM Pack. 

• "RDTIME" — reads the current time and 
date from the ROM Pack, and assigns its 
value to a character (string) variable of 
your choice. Other 4050 BASIC com- 
mands can then manipulate the time and 
date string, or send the time and date to a 
peripheral. 

Time is maintained in a 24 hour format in the 
ROM Pack, and is incremented every se- 
cond. To set the time, you use a character 
string of up to 18 alphanumeric characters. 
For example, April 18, 1980 3:01:49 P.M. 
would be entered as follows: 



lee CAUL "SETlME","18-APR-80 15:01:49" 



IB0 A«»"18-APR-80 15:91:49" 
119 CALL "SETIME%A» 



Fig, 1 . CALL "SETiME" command initializes the 
4052R09 ROM Pack. 

If you prefer, the seconds can be omitted; 
setting the seconds is optional. 



12e INPUT A« 

138 CALL "SETINE 

14a PRINT "Tht c 

138 INPUT A« 

168 CALL 'ROTIflE ... 

178 PRINT "Th« tint 

188 END 



(\$ 



a* 



itiTij. To vtri (ij 



ENTER TIHE IN FORMAT DA-MON-YR HHlMH;! 



The tine In the clo< 



(condf are optional 
veri fy use return. 

z^-JUL-ee 15:26:26 



Fig. 2. CALL "RDTIME" returns the current time 
once the 4052R09 ROM Pack has been initialized 
with the CALL "SETIME" command. 

Figures 1 and 2 show the methods of setting 
and retrieving time data. The characters may 
be assigned to a string variable, or may be 
literally included as a string on the same line 
as the "SETIME" command. Either 
produces identical results. When the current 
time is read from the ROM Pack, the 



information comes back in the same format 
that you use for input. This simplifies using 
the command in some situations, such as 
comparing time and date information ii 
different files. And since the same conversion 
routine can be used for setting and reading 
the clock, it also simplifies the task of 
converting between time zones, or between 
AM/PM and 24 hour notation. 



Elapsed Time Functions 

In some situations, you might want to know 
how long your 4052 or 4054 is used, either as 
a stand-alone computer or as a terminal 
connected to a host computer. The 4052R09 
lets you measure these times, and perform 
other timing tasks, simply. You can: 

• Measure the time a peripheral instrument 
takes to provide data input, or handle 
data output, or 

• Time computational routines to deter- ^^ 
mine the comparative time each takes, or 

• Measure the time a subject takes to 
respond to a problem or to a prompt 
displayed on the graphic screen. 

The Elapsed Time commands were designed 
to answer these needs: 

• "STARTW"~Sets the elapsed time 
counter to zero and starts it running, like a 
stopwatch, in 0.1 second steps. 

• "STOPIT"— Reads the value of the elaps- 
ed time counter, assigns the value to any 
chosen numeric variable, and resets the 
counter. 

You can try out the commands with the 
program shown in Figure 3. Just insert your 
favorite .program as a subroutine, beginning 
at line 1100 and ending with a RETURN 
statement. The ROM Pack and the four 
program lines do the rest. Line 100 of the 
program resets the counter and starts it 
running. Using a GOSUB to the test 
program doesn't add to the total time by a 
measurable amount. When the test program 
is terminated by the RETURN, the program # 
resumes running at line 120, where the clock V 
is read into the variable. The time is then ,^^'^. 
printed in line 130. 
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1 REM BEHCHMAPK PROGPhM 

19B CALL "STARTW" 

lie GOSUB 1188 

120 CALL "STOPIT'M 

130 PRINT "THE PROGR^^M COMPLETED IH ";T;' SECOI 

140 END 

1100 REM THE PROGRAM BGEIHG TESTED STARTS HERE 

1110 REM EXAMPLE SIN(Xwx 

1120 FOR I-l TO 1000 

1138 X-I/1000 

1140 S-SIN<X)''X 

1150 NEXT I 

1160 RETURN 



Fig. 3. Elapsed time may be measured using 
CALL "STARTW" and CALL "STOPIT" 
commands. 



More Than Connect Time Printouts. You 

can do more than just get a print-out or a 
hard copy of your connect tirrie. With the 
4052R09 and the fundamentals of the Data 
Communications Option (Opt. 1 or Opt. 3), 
you can make your 4052 or 4054 aware o{ 
how much of that connect time is actually 
being used. To some users of very busy 
computers, this can be important for several 
reasons. For instance, if a loss of com- 
munication occurs, your connect time may 
not agree with your monthly statement. In 
other situations, the problem is loss of 
communication due to a time limit on usage; 
you might have to try to limit your access to 
some number of minutes. The Real-Time 
Clock ROM Pack can answer the question: 
how much time did you really get that 
session? 

The short program in Figure 4 takes care of 
everything except dialing the computer and 
setting the communications parameters. 
Line 1 10 starts the timer. Remember, when 
you enter Terminal Mode from a running 
program, returning to BASIC resumes 
program operation at the next program line. 
You can return to BASIC by pressing the 
''RETURN TO BASIC function key, or 
your host computer can perform the task 
with the ESC ESC sequence, as described in 
TEKniques Vol. 4 No. 3. 



lee 


REM DATA COMMUNICATIONS 


TIMER 




110 


CALL 


"STARTW" 








120 


CALL 


"TERMIH" 








130 


CALL 


•STOPIT", H 








140 


PRINT 


"CONNECT TIME 


MAS 


"JNI" 


SECONDS" 


150 


END 











Fig. 4. Using the 4052R09 with the Data Com- 
munications Interface enables you to determine 
connect time. 

Vectored Timed Interrupt Functions 

x-*^ Perhaps your application requires you to: 

• Divert the system periodically from a 
main task to a background task, or 



• Scan instruments or other peripherals, or 
alert someone using the 4052 or 4054, at 
periodic intervals, or 

• Restart the system automatically from 
idle after anerror terminates the program. 

If one of these needs is yours, this last 
command is for you. The command is: 

• CALL"ONTIME",T where T is the time 

interval from the execution of the com- 
mand to the program interrupt. 

Executing this command sets the timer to the 
specified number of seconds, T in this case; 
time can be specified to the tenth of a second. 
When that program line is executed, either in 
a program or from the keyboard, the ROM 
Pack begins counting down the interval you 
set. There is no immedi^ate effect on the 
program; subsequent lines will be executed 
as if nothing had happened. But when the 
time elapses, if the interrupt is enabled 
(through SET KEY), the program will per- 
form a forced GOSUB to 4050 BASIC line 
number 84, the timed interrupt vector loca- 
tion. 

This function works just like a User- 
Definable Key. Like a UDK, the interrupt is 
enabled by the SET KEY command and 
disabled by the SET NO KEY command. If 
the interrupt is disabled when it occurs, it, 
along with any UDK interrupts, will be 
remembered in the sequence in which they 
occurred. Further details on programming 
with the User-Definable Keys can be found 
in TEKniques Vol. 3 No. 6. 

Dividing Up the 4052 or 4054. The beauty of 
the ROM Pack timing functions is that they 
require only the time necessary to start the 
function in the program. Thereafter, the 
ROM Pack handles the rest, with little 
attention from the desktop computer's 
processor. So now you can have timing loops 
without the waiting of the WAIT command. 
You can use this timing loop function to 
divide up the processor's attention between 
tasks. The program listing in Fig. 5 shows 
how the timed interrupt can divide the time 
your system spends between two different 
tasks. 

Lines 84 through 90 are set upas an interrupt 
handling routine; it includes a branch to a 
secondary program every 45 seconds. The 
main task can be any program you might 
normally run, preceded by a CALL "ON- 
TIME" to set the time interval allowed it. 
The sample time interval is arbitrarily set to 
45 seconds, but could have been any other 
value sufficient to give the primary task the 
majority of the time. 



1 INIT 

2 ao TO leaa 

84 SET NOKEY 

9! REM CO 00 THE OTHER TftSK PRINTIMC A TAPE TILE 

8£ GOSUB :!ea 

198 REH TASK NONITORIHC ROUTINE 
lie If »•! AHO «-l THEN 229 

129 IF 9-1 OR H-l THEN 179 

138 9ET KEY 

149 CALL "OHTINf.O 

159 RETURN 

1«9 REH IF EITHER TASK IS DONE FIGURE OUT WHICH AHO PRINT A HCSSACt 

178 IF 3-1 THEN 299 

1(9 PRINT -HAIH TASK IS COMPLETE HOM SU8 TA3K GETS ALL THE TIHC' 

199 GOSUB 389 
195 CO TO 229 

299 PRIHT "SUB TASK IS COMPLETE HON MAIN TASK GETS ALL THE TIME' 

219 RETURN 

229 RIM BOTH TASKS ARE DONE 

139 PRIHT "BOTH TASKS ARE COMPLETE' 
|49 END 

199 REM SUB TASK PRINTING A TAPE FILE 

319 IF TYP(9)-1 THEN 389 

329 FOR I-l TO 29 

339 INPUT 933:ai 

349 PRIHT »51:A« 

359 NEXT I 

379 RETURN 

389 3-I 

3»9 RETURN 

1999 REM MAIN PROGRAM FIRST TIME ENTRY POINT 

1819 DIM xfiaao) 

IBte M-9 
1939 S«« 



1849 GOSUB 140 

1950 REM FOR EXflHPLE. GENERATE fl BUNCH OF NUMBERS ANO PRINT THEM 

1969 FOR H-l TO 199 

1979 K(N>-RN0<1) 

19S9 X<N)-L0G<l+TAH(AC9<SIH<Xi;N)n)> 

1999 PRINT N,X<H) 

1199 NEXT N 

1119 REM TASK COMPLETE 

1128 M-1 

1139 CO TO 199 



Fig. 5. Dividing up the 4050' s time: 

(1 ) The programs begin at statement 1000. 

(2) Statement 1040 branches to the routine which 
enables 'ON TIME' interrupt and the countdown 
time, then returns to begin main task. 

(3) After 45 seconds the program is interrupted 
with an implied GOSUB to statement 84. 

(4) The processor is directed to the subtask begin- 
ning in statement 300, after disabling interrupt. 

(5) After 20 lines of code input, the program is 
directed back to the monitoring routine in state- 
ment 100 

(6) If neither task is complete, it will branch back 
to main task for another 45 seconds. If main 
task is complete, it will devote full time to sub- 
task. If subtask is complete, but not the main 
task, it will devote full time to the main task. 



If it looks simple, it is. It works just that 
easily! And you can use the same technique 
to sequentially scan instruments on a timed 

basis. 

Restarting the System From Idle. Suppose 
you have a task that includes gathering data. 
If an error occurs that is "fatal" to the 
program, program execution will end. 
Unless you happen to notice, no further data 
will be collected until you take corrective 
action. This poses an added problem when 
the system must operate unattended, such as 
during overnight operation. Now if the error 
is an interface problem that hangs up the 
system, there is little you can do. But if it is 
the type described, that brings the program 
to an end unexpectedly, the Real Time Clock 
ROM Pack can bring the system back to life 
gracefully. 
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First you need to know how long it normally 
takes to perform a major portion of the 
program. (The other functions of the ROM 
Pack can help you measure this.) Then you 
add an occasional CALL "ONTIME" in the 
program. Since each CALL "ONTIME" 
resets the interrupt timer, the added 
statements continue to reset the interrupt 
timer before it can cause an interrupt (as long 
as the program continues to run). The time 
value set should be greater than the time it 
normally takes the program to reach the next 
CALL "ONTIME" statement. 

So long as the program continues to run, and 
catches the interrupt timer before the in- 
terrupt occurs, operation will proceed nor- 
mally. However, if a "fatal" error occurs, the 
program will stop; when it does, it will also 
fail to reset the interrupt timer. The resulting 
interrupt will cause the program to start 
running, beginning at line 84; it will keep 
running until the next time an error occurs. 

You can also look at variables that serve as 
flags in the program. Then, when a restart 
from IDLE occurs, the program can detect 
how it got there and where it was before the 
error occurred; the restart process is even 
safer. The example in Fig. 6 illustrates this 
technique. 

In the example, the program also sets a time 
limit for the statement that requires 
keyboard input to be complete. (This is 
something else now — the input can be in- 
terrupted.) The variable takes whatever it 



1 I HIT 

2 SET KEY 

3 GO TO loee 

94 REM USE THE SEMIPHORE TO sEE MHERE THE PftOCRftM QUIT 

85 REM «• PROGRf.M NUMBER 

eS COSUB ft OF 100,380,308 

87 REM PRIHT AH ERROR MESShGE IHPIC^i' 

89 REM HflUIHC HANDLED THE INTERRUPT ( 

99 GO TO ft OF 2080.3090.4089 

190 REM THIS PROGRAM SEGMENT HAHPLES THE ERROR IF IN 

110 PRINT "F^iTAL ERROR OCCURRED IN PROGRAM 1" 

120 PRINT "CHECK INPUT " , ".X= " : V. 

130 RETURN 

200 REM THIS PROGRflM SEGMENT HAHPLES THE ERROR IF IN 

218 PRINT "HO OPERATOR ENTRY IH PROGRftM 2" 

220 RETURN 

390 REM THIS PROGRAM SEGMENT HftNOLES THE ERROR IF IN 

310 PRINT ■ A FATAL ERROR OCCURRED IN PROGRAM 3" 

320 RETURN 



iaa« Ren procrah i 
leia A-t 

laza CALL "ONTlMf 



)t49 CO TO zeee 



> SET THE TIHER T 



5 5ECON03 KEYE 



INPUT TIHE-OUT 



3000 REM PROGRAM 3 SET THE TIMER TO 1 

3010 H-3 

3020 CALL "ONTIME". 1 

3030 PRINT 5i; "INTERFACE CLEAR" 

3040 PRINT "LAST SEGMENT COMPLETED" 

3050 SET NOKEY 

3060 END 

4000 PRINT "PROGRAM ENDED" 

4010 END 



Fig. 6. Restarting the system: 

(1) Routine I ( 1000-1030) generates a fatal error. 
After 10 seconds the Real Time Clock forces a 
GOSUB to statement 84 and starts the program. 

(2) Routine 2 (2000-2030) monitors the keyboard 
for 5 seconds, then forces a GOSUB to statement 
84 and continues the program. 

(3) Routine 3 (3000-3030) tries to output to an 
off-line device hut 

at the end of I second will he forced to statement 
84 and program continued. 



can get from the keyboard; interrupt 
processing then begins at line 84. This is 
important in order to let instruments be 
scanned in the normal operation of the 
system. This also shows how the operator 
can be made "optional" in some cases, 
providing the overriding input but not the 
pace for the system. So the operator doesn't 
have to be alerted just to provide a default 
response that makes no change to system 
operation. 



More Information 

The specific command formats are shown in 
Fig. 7. They may answer most other 
questions. The examples in this article were 
intended to show some of the totally nevv' 
possibilities provided by 4052R09, the Real- 
Time Clock ROM Pack. For other informa- 
tion, contact your local Tektronix Sales 
Engineer. 



CftLL 


8CTIHE" 


• At 




CALL 


RDTIHE" 


>A» 




CALL 


STARTW 






CALL 


STOPIT" 


)N 




CALL 


ONTIME" 


|N 




A« IS A STRING UARIABLE 


N IS A NUMERIC 


UARIABLE 



( 



( 



v^^' 



Fig. 7. The 4052R09 adds five new commands to 
your 4052 or 4054 System. ^g) 



( 



Tekniques 
Vol. 4, No. 6' 




Computer simulation to determine effects of wind shear on aircraft keeps a 4051 system busy at the Federal Aviation Agency in Washington, D.C. 
Herb Schlickenmaier of the Agency's Systems Research and Development Service says the program has really used the 4051 to its best advantage. 

Avionics Researcli 
Using the 4051 



by Patricia Kelley 
TEKniques Staff 

TEKniques Vol. 4 No. 4 took a behind-the- 
scenes look at how the 4050 Series is used at 
the National Air and Space Museum of the 
Smithsonian Institution in Washington, 
D.C. While in the area we ventured down the 
street to the Federal Aviation Administra- 
tion (FAA) to see how they were applying 
their 4050 System. 

We talked with Herb Schlickenmaier of the 
Systems Research and Development Service 
(SRDS) of FAA. His particular branch is the 
Airborne Guidance and Control Group 
where they are primarily engaged in research 
and development of avionics, i.e., aircraft 
electronic systems. 



Wind Shear Analysis 

One project which is nearing completion is 
the Wind Shear Analysis program, and is 
one in which Herb says the 4051 has really 
been used to its best advantage. 

The research was an initial effort to define 
specific wind shear conditions that pose 
hazards to particular types of aircraft. From 
this research "hazard envelopes" could be 
developed and included as part of an air- 
craft's hazard evaluation and warning 



'A system including mstny cDmponcnts such as ground-based 
atmospheric sensors, ground-io-iur data hnk, aircraft-based sen- 
sors and controllers and so on. 



-Flaps, gear positions, and others. 



'Flight phase, i.e., final approach, take-off. climb; true airspeed, 
flight path angle, etc. 



system.' These envelopes would enable the 
system to correlate various configurations^ 
and flight parameters^ for that aircraft with 
wind shear conditions which might con- 
sistute a hazard. I n a fully automated system, 
this flight-derived data would actuate the 
automatic flight control system (AFCS). 

But what is wind shear? Simply put, wind 
shear is a rapid change in either wind speed 
or direction. Wind shears normally are 
formed by thunderstorms and frontal zones. 
The most severe shears usually occur in gust 
fronts at the edge of mature thunderstorms. 
Strong shears also occur in the frontal zone 
between cool and warm air masses; low level 
jet shear can occur by warm airflow atop a 
low level temperature inversion. 

Wind shear has been the culprit in a number 
of aircraft mishaps, such as those that 
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occurred in Tokyo in 1966, LaGuardia in 
1971, Logan International in 1973, JFK in 
1975, Philadelphia in 1976, and others. 
Figure I is a profile of a commonly occurring 
wind shear, called a logarithmic shear; 
Figures 2 — 6 are profiles that have been 
reconstructed from aircraft accidents. Ac- 
cording to certain distinguishing qualities, 
wind shears have been broadly categorized 
into four types: linear, log, jet stream and 
reversal (Figure 7). 
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Fig. 1 . Wind Profile 1 (Neutral) 





Fig. 4. Wind Profile 5 (Frontal) 
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Fig, 5 Wind Profile 9 (Frontal) 
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Fig. 2. Wind 
Tokyo (1966) 



Profile 2 (Frontal). Similar 



Fig. 6. Wind Profile 10 (Thunderstorm). Similar 
^o to Kennedy Profile (1975) 
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Fig. 3. Wind Profile 4 (Thunderstorm). Similar 
to Philadelphia Profile (1976) 



Fig. 7. Categorized Environments 



Simulating Wind Shear Hazards 

Since wind shears have different character- 
istics, and because a particular wind shear 
will have different effects on unlike aircraft, 
no one formula for what is hazardous can be 
applied to all. Therefore, defining which 
types of wind shears constitute a hazard 
requires a variety of parameters to be tested. 
This is where the 4051 comes in. 

Computer simulation is the primary tool for 
hazard' definition analysis. It allows for a 
variety of aircraft configurations, flight 
paths, and atmospheric disturbance models 
to be examined in various combinations. By 
taking National Transportation Safety 
Board reports describing aircraft con- 
figurations, flight paths, and wind con- 
ditions at the time of aircraft accidents, 
adverse combinations of actual conditions 
can serve as computer simulation check 
points. 

For one analysis, an aircraft model of a wide- 
bodied three-engine jet was studied. The 
model was selected as being representative of 
a category that offers the most potential for 
catastrophe in a severe atmospheric distur- 
bance, i.e., a commercial airliner. 

The analysis was conducted with the 
computer-simulated model landing under 
simulated automatic control (autopilot and 
autothrottle). Wind shear profiles were 
selected that were representative of actual 
encounters with severe wind shears. 

The aircraft model was considered 
successfully landed through the wind shear 
condition if the simulated control actions 
demanded to correct flight path deviations 
did not exceed the actual capabilities of the 
aircraft. Also, touchdown and airspeed must 
have been within limits. If these criteria were 
not met, a hazardous condition was presum- 
ed. 

Many simulations were run on the 4051 for 
each of the four wind shear categories shown 
in Figure 7. Deviations from the programm- 
ed values of the flight parameters, whether 
caused by wind shear or other factors, were 
corrected by elevator and throttle. Results of 
some of the runs are displayed in Figures 8 
through 1 1. Notice that each display shows 
the maximum and minimum values of: 

• elevator deflection (DELE) in radians 

• true airspeed (VA) in ft/ sec 

• normalized throttle position (TH) 

• elevator rate (dDELE) in radians /sec. 
and 

• deviation from the desired altitude (ZTD) 
just prior to landing 

• deviation from the desired touchdown 

(XTD) 



( 



( 



( 



10 



Tekniques 
Vol. 4, No. 6 



&(a**;:#tt'/K '• •••' •'""•• 



?T0 



III 



•MX OCLC 



4.«2«l<SM4]a 



• .37«ni4t4«Il •.M7M1S893M49 




Fig. 8. Simulation Wind Profile No. 2. 
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Fig. 9. Simulation Wind Profile No. 3. 
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Fig. 10. Simulation Wind Profile No. 4. 
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Fig. 11 . Simulation Wind Profile No. 10. 



Although the aircraft was considered safely 
landed in Figures 8 through I i, all landings 
weren't so successful. The results laid the 
basis for a proposed hazard definition. 



Defining Wind Shear Hazards 

From the simulations, Herb drew the follow- 
ing conclusions applicable to a jumbo tri-jet 
aircraft in automatic flight control system 
( AFCS) mode on a three-degree flight path. 

The Type 1 (linear) shear illustrated in 
Figure 7a can be penetrated safely and does 
not pose a hazard during final approach and 
landing. 

The Type 2 (log) shear illustrated in Figure 
7b was penetrated safely during 89% of the 
simulated runs. When the surface wind in 
this log distribution was a 100 ft/sec tail- 
wind, it constituted a hazard, and the defined 
conditions should be included within the 
hazard envelopes. 

The Type 3 (jet stream) shear illustrated in 
Figure 7c was penetrated safely during only 
36% of the attempts. The most severe shears 
that were safely penetrated were a 200 foot 
Vertical segment having a center headwind of 
40 ft /sec, and a 600 foot vertical segment 
having a center headwind of 50 ft /sec. Jet 
stream wind shears exceeding these speed 
magnitudes should be included within the 
hazard envelopes. 

The Type 4 (reversal) shear illustrated in 
Figure 7d was penetrated safely during only 
10% of the attempts. The most severe 
thunderstorm shear that was safely 
penetrated had a center headwind of 40 
ft/ sec in its 450 foot lower segment, and a 
center tailwind of 40 ft/ sec in its 450 foot 
upper segment. Thunderstorm shears with 
intensity magnitudes in that vicinity should 
be included within the hazard envelopes. 

Alleviating the Wind Shear Hazard 

From these results, the SRDS group is 
working to develop systems which can warn 
the flight crew of an impending hazardous 
environment. For instance, they are current- 
ly working on a telemetry system that will 
automatically tell the pilot what the winds 
are at the touchdown zone. 

They are also working on inertial velocity 
(groundspeed) sensors that will tell the pilot 
his aircraft's speed with respect to the ground 
as opposed to the air mass that it's flying 
through. For example, if a headwind in- 
creased slowly to some large speed, the pilot 
willchange his inertial velocity unknowingly. 



if this headwind suddenly disappeared, the 
aircraft wouldn't have enough lift to main- 
tain flight. So, if he monitors his ground 
speed, it will tell him there's a certain limit 
beyond which he shouldn't go. 

The group is also looking at the aerodynamic 
limits of the aircraft. Herbexplained,"If you 
instantaneously remove 20 or 30 knots from 
the airspeed of the aircraft, or if the angle of 
attack increases by 15 or 20 degrees, you get 
into what is called a stall. The wings no 
longer can support the weight, in which case 
the aircraft is going to start to nose over and 
dive. Structurally the aircraft is still sound. 
For a short time the aircraft will still fly close 
to the same velocity with respect to the 
ground, since you don't stop a 200,000 
pound aircraft instantly. But, 
aerodynamically, dramatic things have 
happened to the aircraft and we want to see 
how the atmosphere affects it." 

lo do this, Herb's group is looking at a 
variety of signals that the aircraft is detecting 
from a math model. Did the angle of attack 
start to oscillate as it approached the stall 
angle; what's the airspeed starting to do; is it 
starting to drop off; can you see a creep 
before it instantaneously drops; is there a 
pattern you can pick up?" From these signals 
they can find out how the environment is 
affecting the aircraft. 

Then, by knowing which of these signals are 
important, or which seem to give the most 
information, they can determine how to 
build a "box" that looks at those signals and 
displays them or feeds them back into one of 
the flight computers on the aircraft. They 
have done some simulations of such a "box", 
called an acceleration margin system, which 
looks at about five different signals from the 
aircraft. They haven't built it in hardware, 
however. Herb says that simulations on the 
4051, on the Eclipse^, and piloted 
simulations have proven it to the point where 
they can hand off the specifications to 
another group for manufacture. 

Head-Up Display Program 

Another simulation analysis is the head-up 
display. Flight information is displayed on 
the windscreen for the pilot so he doesn't 
have to look down; thus, he's always looking 
out. Because ofthe work in wind shear, when 
the head-up display program started, they 
were able to take the head-up display control 
laws and play them throughthetri-enginejet 
model on the computer. They played it 
through the Eclipse onto a TEKTRONIX 



'' f he Fxlipsc is 
flrnrrnl Corp. 



16-bit minicomputer maniilacturcd by Data 
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4006 terminal screen and put up the sym- 
bology. Herb noted that although it was 
under automatic control, they were able to 
see where the symbology would have moved 
on the windscreen as the aircraft moved 
through the wind field. He wryly observed, 
"Unfortunately, it wasn't dynamic graphics; 
with a 4054 or 4081 everything would have 
been as it was in the real world/' But it did 
give them a good feel as to what gains had to 
be turned around, and better insight as to 
what sensitivity had to be attached to certain 
control laws. 

Other Tasks 

Although the 4051 has been doing a lot of 
work on how the environment affects air- 
craft, it is also put to other uses. Herb says 
they've developed a few programs which 
design active filters. They've also used the 
4051 for printed circuitboard layout. 

Another area in which they employ the 405 1 
is occasional interacting with contractor 
computers. A contractor may have a data 
bank that SRDS wants to examine. "It's nice 
to be able to retrieve a data bank and not be 
on-line and impact the contractor," noted 
Herb. They download from the host to the 
4051. They can process it if they want to take 
a look at some of the work the contractor has 
been doing. Herbsaidit had given them a big 
advantage in a couple of contracts; it made 
the difference in whether a contract really 
recovered any intelligent data or not. They 
were actually able to tell the contractor 
specifically where problems existed. 

Herb has also been using the text editing 
capability of the 4051. He saves all of his 
FORTRAN text on the 4051, using the 
Editor ROM, thus relieving the Eclipse. He 
has written a program that automatically 
compiles the FORTRAN program, per- 
forms the error checking, and all the rest, 
down to the map*; it even checks the map to 
see that it passed all the tests. At this point, 
it's interactive with the Eclipse. Herb com- 
mented, "It basically takes the operator out 
of the loop; you're there as a monitor, if 
you're interested." The 4051 takes the data 
files off the disk, dumps them onto the RS- 
232 and on into the Eclipse at the proper 
baud rates (the Eclipse requires its data to be 
spaced out in a certain fashion). The 4051 
then checks to see what the return is from the 
Eclipse to determine whether the compila- 
tion was good or not. 

SRDS has engineering students from the 
cooperative education program (work- 




( 



For other tasks, Herb has the 4051 working interactively with their Eclipse minicomputer. 



5 A compiler translates higher level languages to a contiguous 
machine code. A map, sometimes called a SAVE file or absolute 
code, combines the machine language codes into one executable 
program. 



study) working with them. Herb said the 
students, as well as others in his group, are 
enthusiastic in using the 4051, "They don't 
have that big brother fear of the large main 
frame," he noted, "nor do we have the 
operating costs." One of the students, Joe W. 
Ascavage, built a wake vortex simulation for 
two aircraft on the 4051. This basically 
figured out what the .vortex position shed- 
ding off the wing was for the lead aircraft. 
Then, depending on the speeds and the initial 
spacing of the two aircraft, you could see 
whether the follow aircraft ever interfered 
with the first aircraft's wake. If it did, you 
would tell what the intensity was and other 
parameters. This program has been used for 
some of the analysis the SRDS is putting into 
wake vortex programs. It's also used to a 
certain degree to determine what type of 
spacing is safe for various aircraft. 

Herb observed that initially they simply 
started the engineering student with some 
basic concepts, as to what salient informa- 
tion was really important; after that he was 
essentially on his own. Later the student 
came out of the computer room with a very 
nice piece of software. 

While attending the University of Maryland, 
Herb was a co-op program student himself. 
He worked through college as a graphic arts 
draftsman. He commented he had seen too 
much work done by hand that should have 
been run on the computer, thus, another 
reason he is so enchanted with the 4051. 

In school he majored in Aeronautical 
Engineering but became very interested in 
computers so he took as many Electrical 
Engineering courses as his schedule per- 
mitted. He feels the experience he gained 
developing applications for the university 



computer has really come in handy. In fact 
when SRDS picked up the Eclipse there were 
no plotting packages on it. Instead of 
pushing through a software contract, he built 
up a 4051 compatible plotting program in 
FORTRAN for the Eclipse which enables 
them to take any program in BASIC and 
with the proper syntactical changes (e.g., 
DRAW becomes CALL DRAW), the same 
plot will be displayed on the 4051 from the 
Eclipse. 

This allows his group to write graphics 
programs initially on the 4051, de-bug them, 
put them back into FORTRAN, compile 
and execute. He said, "Now all you have to 
do is get your numbers straight." 

Occasionally the SRDS group has to work 
on rush orders. Once a fellow came in who 
wanted information about the effects of a 
particular type of wind shear that they hadn't 
been looking at. So they took it to some 
rather ridiculous extremes and showed that 
it didn't significantly affect the aircraft. The 
data came off the Eclipse in this case; so they 
"scratched up a quick and dirty program on 
the 4051, dumped the data in, hit the copy 
button, and handed the plot to the guy." 
Herb notes. "That impressed a few people." 

His final comment, "But usually it's the same 
old stuff. We keep the 4051 busy." 



( 



Ed. Note: The Wind Shear Analysis study is covered in Report No. 
FA A- REV- 79-90. "Wind Shear Hazard Definition For a Wide Body 
Jet," Herbert W. Schlickenmaier, The document is available to the 
U.S. public through the National Technical Information Service, 
Springfield, Virginia 22161. 

We want to thank Herb Schlickenmaier for taking time to discuss 
some of his applications with us. A special thanks goes to Mallory 
Green at the Etepartment of Housing and Urban Development for 
suggesting we contact Herb to discuss his unusual applications. '■^-..^' 
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Editor's 
Note 




Back Issues: Vol. 4 Only 

This is just a note to remind you that back 
issues of TEKniques are no longer available 
for Volumes 1, 2, and 3. The application 
articles from those volumes have been com- 
piled into reprint sets, collected by applica- 
tion area. Currently there are five sets of 
reprints available, in the following applica- 
tion categories: 

Engineering and Design AX-4449 

Mapping AX-4460 

Data Acquisition and Analysis . . AX-4450 
Business Graphing and 

Reporting AX-445 1 

Peripherals and ROM Packs . . . AX-4452 

If you need an article from one of these 
previous volumes, and don't have your copy, 
one of the reprint sets will likely fill your 
needs. To obtain a copy of one of the reprint 
volumes, just contact your local Tektronix 
Office or the Applications Library Office 
serving you. 

And, of course, back issues of TEKniques 
Vol 4 (1980) will continue to be available 
from the 4050 Series Applications Library 
office that serves your area. 



Programming Tip Handbook 

We've got a new Programming Tip Hand- 
book, too. This handbook contains all of the 
Programming Tips and BASIC Bits from the 
past three volumes of TEKniques. Since 
they've proven to be such a valuable 
reference to many of you, and since reprints 
of those volumes are no longer available, we 
put the handbook together to answer that 
need as well. And the Tips are all indexed so 
that you can find what you need in a number 
of ways. 

The Programming Tip Handbook is 
available through the Applications Library 
office serving your area. It's listed in the 
Resource Materials section of the new 4050 
Series Applications Library Catalog, as 
Abstract Number 51/00-7004-0. U.S. 
Domestic Price is $10. 



Like the New Catalog? 

By now, you should have received your copy 
of the new 4050 Series Applications Library 
1980 Catalog. We put a lot of hours into 
revising the old catalog entries and adding 
the 66 new abstracts to make up this catalog; 
our view may, therefore, be a little biased. 

So now it's your turn to tell us what you 
think of the catalog. Drop us a note and 
share any of your views about the catalog 
with us. Do you think the choices of 
categories are appropriate, for instance? Or 
how do you like the new keyword index? Is it 
easy to use? Let us know; we're actively 
seeking your opinion. 



International User Applications 

We're also actively looking for application 
articles describing how users outside of the 
U.S. are applying 4050 Series Graphic Com- 
puting Systems. If you're one of those users, 
please drop us a line through your 
Applications Library office. 

As usual, we're happy to help with editing or 
rewriting, as necessary. Just let us know what 
you're doing, and what you need to complete 
an article. We're waiting to hear from you. 



New Contest 

As we announced in the previous issue of 
TEKniques, we're going to have another 
contest in the near future. Details, including 
contest area, rules, and prizes, will be an- 
nounced in the next issue of TEKniques. 
Watch for it. 



Programs Wanted 

We're always looking for more programs to 
add to the 4050 Series Applications Library. 
New programs keep the library growing, so 
we are able to share more programs with 
more users. And, of course, you who use the 
systems are the source of new programs. 



If you have a program to contribute, check 
the information at the beginning of the 
Abstracts section for information. And 
remember, you get three programs for each 
one accepted by the library, so you can't lose. 



Programming Tips Too 

We'd also like to remind you that we like to 
publish your Programming Tips and BASIC 
Bits too. You get any one of 12 Programs 
from the libraryforeachof your Tips or Bits. 
Details are listed below 

Telephone Note 

If you've tried to phone the Applications 
Library recently, you may have experienced 
some confusion over extension numbers. 
Recent changes in the Tektronix telephone 
system have resulted in duplicate extension 
numbers in Beaverton. To avoid any confu- 
sion just remember-: 

• If you're calling from outside Tektronix, 
call (503) 682-3411— then ask for the 
library extension you want. 

• If you're an inside caller, or you've already 
called the Beaverton plant, just let the 
operator know that you want a Wilson- 
ville extension. Ask for 3607 — 
Wilsonville, for instance, to avoid confu- 
sion with other extensions. 

Programming 
Tip Exchange 

51/00-0501/0 51/00-6002/0 

51/00-0901/0 51/00-8004/0 

51/00-1403/0 51/00-8017/0 

51/00-1603/0 51/00-8022/0 

51/00-4002/0 51/00-9507/0 

51/00-5204/0 51/00-9533/0 



& 
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INPUT/ 
DITPUT ^ 




c 



_>/ 



Digitizing on 4663 

Reed Phillips, Systems Analyst 
Tektronix, Raleigh, NC. writes: 



at 



I had a customer that was having difficulty 
understanding how to digitize from the 4663. 
The enclosed program will shed some light 
on the subject. 



!•• IHIT 




Ut Rfll S«t R««pons« ForMot to 3 1 


12a PRINT tl,32:'CC S" 




139 PACE 




140 ON SRQ THEN 208 




158 MAIT 




160 CO TO 150 




170 REM z-0 ncans HOME 




188 REH z-1 ncans DRAU 




198 REH z*2 n«ans Ll^ST 


POINT 


208 INPUT tl.32:XiY.Z 
218 CO TO Z OF 240,270 




220 n ME X.Y 




238 R TURN 




248 D AH XfY 




258 R TURN 




268 R H Reset Rcsponct 
278 PRINT tl,32S''CC l' 


Fornat to 1 




280 END 





The POINT light will turn on indicating that 
you may begin. The first point digitized 
should obviously be a MOVE POINT. 
Depressing LAST POINT will terminate the 
program. 

Option 1 (RS-232) Interfacing 

Various users have had similar questions 
about using the Option i (RS-232) Data 
Communications Interface and their 4050 
Systems. Howard Sanders, Technical Sup- 
port Specialist, and Frank Lees, Com- 
munications Support Specialist, at 
Tektronix, Wilsonville, have provided the 
answers to some of the more frequent 
questions. 

When I connect my 4050 System to a modem 
and key in CALL 'TERMIN"^ the BUSY 
and I/O lights on the 4050 System continue 
to Wink alternately but I can't transmit. 
Obviously something is happening, but 
what? 

First, let's review RS-232 signal definitions- 

From the chart you can see that Pin 4 is 
always high when the 4050 Series is transmit- 
ting. However, the 4050 System requires a 
Clear to Send signal from the modem. 
Perhaps the modem or RS-232 device to 
which you are connected simply doesn't 
provide the Clear to Send signal. To circum- 







RS-232 Signal Definitions 




Pin 


Circuit 


Signal Name 


Definition 


Direction 


1 


AA 


Protective Ground 


Electrically bonded to equipment 
frame. May be further connected 
to external grounds as required by 
applicable regulations. 


Not applicable. 


2 


BA 


Transmitted Data 


Transmit data line to Terminal 
Modem from Terminal. 


TO data communication 
equipment. 


3 


BB 


Received Data 


Receive data line from Terminal 
Modem to Terminal. 


FROM data communication 
equipment. 


4 


(A 


K(M|ur^t (o Sciut 


High (o TtTininal Modem when 
Ivrminai wants to trunsmit, 
telling the Terminal Modem to 
generate a carrier to Host Modem 
on which to transmit data from 
the Terminal. 


TO dMtH communication 
equipment 


5 


CB 


Clear to Send 


Response from Terminal Modem 
to Terminal's Request to Send. 
After Terminal Modem generates 
a carrier, it sets Clear to Send 
high to tell Terminal that it's 
okay to transmit. 


FROM data coummuncation 
equipment. 


6 


cc 


Data Set Ready 


Always high from Terminal Modem 
to Terminal when Terminal Modem 
is powered up and ready to 
operate. 


FROM data communication 
equipment. 


7 


AB 


Signal Ground or 
Common Return 


Common return for all signal leads. 


Not applicable. 


8 


CF 


Received Line Signal 
Detector 


High to terminal when Terminal 
Modem detects a usable carrier 
generated from distant Host Modem; 
Terminal can then receive data. 


FROM data communication 
equipment. 


11 


SCA 


Secondary Request 
to Send 


Used with RS-232-A in Half- 
Duplex Supervisory mode only.' High 
from Terminal to Terminal Modem 
in receive submode, telling Terminal 
Modem to generate a secondary carrier 
over which Terminal may transmit a 
break signal to Host. 


TO data communication 
equipment. 


12 


SCF 


Secondary Received 

Line Signal 

Detector 


High from Terminal Modem to Terminal 
in transmit submode, telling Terminal 
that a secondary carrier is being gen- 
erated by Host Modem. 


15 


DB 


Transmitter Signal 
Element Timing' 


Line to supply an external clock for 
Transmitted Data line from 
Terminal Modem to Terminal. 


FROM data communication 
equipment. 


17 


DD 


Receiver Signal 
Element Timing^ 


Line to supply an external clock 
for Received Data line from 
Terminal Modem to Terminal. 


FROM data communication 
equipment. 


19 


SCA 


Secondary Request to 
Send^ 


Duplex Supervisory mode only.' equipment 

High from Terminal to Terminal Modem 

in receive submode, telling Terminal 

Modem to generate a secondary carrier 

over which Terminal may transmit a 

break signal to Host. 


20 


CD 


Data Terminal Ready 


Always high from Terminal to 
Terminal Modem when Terminal is 
pbwered up and ready to operate. 


. equipment. 








' 


The 4050 Series supports both RS-232A and RS-232C, 

Some modems need to see this high all the time when in Half- Duplex Normal, 

Supported hy 4052 4054. 


Notes for Option 1: 
Terminal = 4050 Series 
Low = -3 to -15 V 
High = +3 to +15 V 



( 
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vent this, an adapter, sometimes called a 
loopback connector, can be included 
between the 4050 Option 1 RS-232 inter- 
connect cable'* and the modem or device. The 
following two diagrams illustrate such 
adapters you could build or buy depending 
on whether the 4050 is used as a terminal or 
hoftt. 
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Fig. 1 . 4050 Operating as a Terminal 
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( 


b) 




Adapter 









Fig. 2. 4050 Operating as a Host Computer 

(a) Shows adapter plugged directly into 4050 
Opt. I backpack. 

(b) Uses the interconnect cable (for di. stance), 
thus the 4050 appears to he in a terminal (see 
footnote 4), so proper transmit and receive must 
be achieved by cross wiring pins 2 and 3 in the 
adapter. 

Pjns 4, 5, 8, and 20 are connected in the 
adapter. Since pin 4 is always high when the 
4050 System is transmitting, this will provide 
positive (high) voltage to Pin 5. Pin 8 must 
also be high, which is provided by Pin 20, 
thus they may all be looped together. 

Pin 6 doesn't matter— it could be "floating." 



All other pins not shown in the sketch could 
be grounded. 

The pin numbers are imprinted on the male 
connectors of the Opt. 1 interconnect cable. 
Pin 1 is the Protective Ground. Refer to the 
note regarding this pin in the chart. 

If the pin configurations on your RS-232 
device are different than those described in 
the chart, refer to the device manual. Com- 
pare circuit definitions in the chart with 
those in the manual. This could help you 
attach the correct pins to your RS-232 device 
to make it work. 

What's going wrong when garbled characters 
are received from the 4050 System? 

In almost all cases, the baud rate on the 4050 
Series doesn't match that of the RS-232 
device receiving the characters. Both the 
4050 System and the RS-232 device send and 
receive data at specified rates, known as the 
baud rate. If the baud rate on the 4050 
System is different than the baud rate set on 
your RS-232 device, you'll get garbled 
characters. If this happens, take the follow- 
ing action: 

Press User-Definable Key 14 to list the 
Data Communications parameters on the 
4050 screen. Check the first parameter in 
the RATE routine to see if it matches the 
device's baud rate. 

If not, press UDK 5 to return to BASIC 
mode. 

Reset the baud rate on your 4050 System 
through the CALL "RATE" command 
(see the 4050 Option 1 Data Com- 
munications Manual for the parameters). 

Re-enter TERMINAL mode and 
transmit. Jgl) 



* A special cable (Tektronix part no. 012-0689-00) provided with 
your Opt. 1. It reverses the wiring on the 4050 RS-232 connector so 
the 4050 appears to be a terminal to the modem and host computer. 
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Graphic Systems Workshops Continue 



TEKniques Vol. 4 No. 2 described the 4050 
Series Graphic Computing Systems Work- 
shops, which are designed to help you get the 
most out of your systems. These week-long 
workshops are held in four basic locations 
around the country. These workshops are 
continuing; new dates and locations are 
detailed here. 

The workshops teach the application of 
BASIC and the concepts of desktop com- 
puter graphics. The classes emphasize in- 
tegrating and using TEKTRONIX 4050 
Series Graphic Computing Systems with 
their associated peripheral equipment. The 
full range of Graphic Computing System 
equipment is available in the workshops. 

The workshops combine lectures and exer- 
cises to develop a working knowledge of 
system capabilities. Laboratory sessions 
complement and reinforce lecture informa- 
tion, through developing practical examples. 
When you complete a session, you'll havethe 
skills necessary to apply the system cap- 
abilities to your own tasks. 



Locations and Schedules 

The workshops are scheduled through four 
basic locations, as shown on the schedule. 
But on-site classes and special locations can 
be arranged for groups of 10 or more. 
Currently, the following places and times are 
scheduled: 




Santa Clara, CA 
Rockvillc, Ml) 
Santa Clara, CA 
Rockville, MD 



For Information 



Oct. 6-10 
Oct. 13-17 
Oct. 20-24 
Oct. 27-31 



More information can be found in TEKni- 
ques, Vol. 4 No. 2. If you're interested in 
attending one of these sessions, or think you 
might be, you can get additional information 
by contacting your local Tektronix Sales 
Engineer. Or you can call Raynor Christian- 
son at (503) 644-0161, ext. 8949. He can 
provide information on other workshops as 
well, such as the recently-established 4020 
Series Terminal workshop. 
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Home Insulation Break-Even Point 



by Chris Avery 

U.S. Dept. of Agriculture 
Forest Service 
Washington, D.C. 

The following program calculates the 
number of years required to break even on 
home insulation. It takes into consideration 
the cost of insulation, fuel savings due to 
insulation, interest that could have been 
received on the money spent for insulation, 
etc. 

The value of all variables for each year is 
displayed. You can determine if home insula- 
tion would be cost effective under various 
cost/ savings assumptions. Generally, a 
break-even point greater than seven years is 
not considered cost effective. 



IM INIT 


It facc 


(• r** 


3i Dl-32 


*» Ktn Cnt«r Anount In Do 1 1 in, i . t. . 431 




«• IHPUT C "*"" """'"•''' *"*"■ " '"" " •••">• •>""««'■ 


?• n» Ptrctnt qI h<«tinf biH to t>t tavid bw I niuU t Ion. I . t . , J3 




9« ?HPUT S*"*"" "•""' h..Mn, bl M ..v.d bw m.ul.tlon '1 


20« REH Convert .M ptrctnt«»«i to fraction. 


2ia X-S/ M 


J2« REM Coft li inttr«d in dollari 


23« P«IM 'Ent.r coit o» In.uUtlon M 


248 IHPU T 


25a Z.T 


268 «£H P.rctnt coft of *utl -111 Incrt.ft It wt«r,l..., 2« 




2sa IHPUT p " "" ''•'■'^•" " "•*'" ** "*'■•*•« " 


298 H-P'iaa 


08 REH Rtturn on lavlnti \f non€w not iptnt on- in.ul atlon 


18 PRINT 'Enter inttriit ratt on favlnff '1 


28 IHPUT a 


38 u-e^tae 


48 REH Ratt of incrtai. of inttrtit ov«r tin*, i.... .2 


58 PRINT "Enttr w.arlw incrtig. of intcrttt ratti •) 


68 IHPUT R 


78 u-R/taa 


88 PRINT -Enttr nu».btr of tlnti inttrtit ii conpoun««d wtarlw '1 


98 IHPUT C 


488 IHftCE ZCfutl CO. f,3x),'iavinif", 4x,-lnttrt»f,Sx,-(HffMx. "total- 


418 PACE 


428 PRINT fDli USIHC 488: 


439 IMAGE -incrfai. »" , 4>, , Vtcluc t ion »",13x,"on t',3d,2<* 


448 PRINT 801! USING 4381 T 


498 INACE i4.,'X u.' no" , Sk. 2d. "<■ , 2B«, •» ',2d.ld,"!( w/' 
468 PRINT 801! USING 43e:P|SlO 


4i'8 IWACC •ln.ulaHon-,4«,"w/ I n.u 1 . M Jx . " 1 nc , of 'ild.2d,"-<' 


488 PRINT »DI; USING 478:R 


498 IHACE 72(",-> 


5«« PRINT •01: USING 498: 


318 REH A-»avlnf. dui to In.ulatlon 


328 A^CtK 


338 REM 8«futl co.t xith insulation Inttall.d 


548 B.C-A 


38 D-e 


68 REM Follo«inf loop conput*. coBOound inttrt.t on lavinti 


78 FOR I-l TO G 


88 C0SU8 778 


598 NEXT I 


688 REM t-n«t lavinfl <taln or lo«a> dui to in.ulatlon 


618 E-A-0 


628 REM F-cunulatlvt lawtn*. dut to In.ulatlon 


638 F-F»E 


648 IMAGE 6<(d.2d|3)<) 


638 PRINT »0.t: USlHG 648;C|II A| Dl ElF 


668 REM C-ntKt wtar". fuil coft «/o In.ulatlon 


688 U«U«UtU 


69a REM Tt.t If .avina. art .rtattr than Initial co.t 


78B IF F Z THEN 328 


718 PRINT 8M: UlIHC 498! 


728 IHACE -Inttrtit 1. conpoundtd ■,2d.- tint. Btr wtar* 


738 PRINT »0t! UtIHG 728; C 


748 PRIH fDU UIIHG 738: 


738 IH*Cf S<-',L) 


768 REM H>lnttr<.t on curr.nt .av 1 nf. ar^ount 


778 H-T»(U/C) 


788 REM IXcunulatlvt int.rt.t tMi wear 


798 0-O.H 


888 T-T4H 


818 REM CoMut. curr.nt total .av|n«. 


828 RETURN 


nttr currtnt wttrlw coit of hta tlnt—.UBntr i -inttr 888 


nttr par<tnt htatlnt bill .avtd bw In.ulatlon 18 
nttr CQtt of IntuUHon 2888 


nttr iMir<tnt of yttrlw Incrta.t of fut! co.t 13 
nttr lottrtit ratt on .avlnt. 8 


nttr wtarlw iTxrttlt of Inttrt.t ratt. 8 


nttr nunbtr of tint. Inttrt.t 1. cowpoundtd wtarlw 4 





futi co.t 










in<rt«.t • 














18. K 
w Intul. 




inc' ,M?.;. 






888.88 


728.88 


8 .88 


............. 


-14.86 


' ' ' -ji'iJ' ' ' 


928.88 


82 . • 


178.43 






1838. 8« 


95 . i 


18 .88 




-«7.]« 


-238. S8 


12 6.78 


189! . 




289,89 


-97.42 


-J46.ie 


13 9.21 


23 . 




226.32 


-86.48 




16 9.89 




168.91 




-84.87 


-316.38 


1818.45 




189.84 


263.17 


-88.13 


-396.78 


21 8.82 


9i: . 


212.88 


287.83 


-74.23 


-678,94 


24 7.22 


228 .'. 


244.72 






-736.91 


28 4.38 


253 . 


281.43 


336.38 


-34.87 


-791.79 


32:6.45 


291 . 


323.(4 




-48,38 


-332.16 


37 1.91 


334 . 2 


372.19 














426.92 


.38 


-832.58 


4922.23 


443 . 


i3;i:ii 


461. 67 


3 .33 


-821.93 


56 «.5« 


9«9 .! 


99.73 


6 .33 


-735.63 


6* 9.65 








11 .84 










las.st 






86 9.81 


774 1. 




(33.78 


22 :i2 




99 e.3c 


«9t 1.;!: 




1 86.82 


3e< .81 


48.64 


113 5.42 


1824' :.!> 


1138.94 




39! .97 


444.61 


138 3.23 


1178 :.; 


1389.32 




38! .34 


998. 15 


158! 7.21 




1585.72 


178.84 






173 5.88 


19984.2 


1731.38 


941.76 


789:82 


2373.64 


Inttrt.t 1. 


coiwoundtd 


4 tint* B«r 


\fir 







Program Initialization 

by Jon C. Mutton 
Tektronix, Inc. 
Wilsonville, OR 



Many programs use an initialization routine 
to set constants and default parameters. 
Often it's deleted upon execution to avoid re- 
execution later. There are two serious draw- 
backs to this approach: 

1. It only works when the entire program is 
present, i.e., when the program is initially 
loaded via an "OLD" or "Auto Load" 
command. Subsequently, initiating the 
system with an "INIT" command would 
require all the variables to be set manual- 
ly or the program to be reloaded. 



2. Saving the program with a "SAV" com- 
mand without restoring the routine. 

The following short routine solves these 
problems. 



lee DiH Rt(3) 

118 R»-REP<"M,e) 

129 IF LEN<R*)>e THEN 580 

138 REM BEGINNING OF INIT ROUTINE 

148 

I 
! 

288 REM END OF INITIALIZATION ROUTINE 
218 R**- " 



588 REM PROGRAM STARTS HERE 

I 



I 



The "DIM" command in line 100 is not 
necessary but does limit the amount of 
memory used by the routine. The REP 
function in line 110 defines string variable R$ 
without changing it. The length of R$ is 
checked in line 1 20 and if R$ is 1 character or 
more long the main program is executed. If 
LEN (R$)=0 the initialization routines are 
executed before the main program. A string 
variable contained in the main program may 
be used so long as it will always contain 1 or 
more characters. This variable may be 
dimensioned if necessary in line 100. 
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Packing Integers for Memory Saving/ Efficiency 



by Ted Webber 

Laurie, Montgomerie and Pettit 
Sydney, Australia 

This program uses a base 100 counter and 
stores integers as strings. It compares with an 
article in TEKniques Vol. I No. 10,' where a 
base 128 counter is used. 

The program is also a follow-on of one 
published in TEKniques Vol. 3, No. 2,^ 



which stored t wo si x-digit i ntegers in one real 
number. While that routine is considerably 
faster for larger data values, this program 
becomes more efficient for smaller numbers. 

As you can see, approximately 4,000 bytes of 
memory are saved'using the string method of 
storage. 



.1, Fs'EM ENCODE AND DECODE AN INTEGER VECTOR AS A STRING 

;•.! REM TO BASE 100 FOR MAX 6 DIGITS 

too INIT 

110 REM DIM A*(2+*DIGITS),B*(l+*DIGITS/2) 

120 D=32 

:l.30 Dl = 1000 

lAO DIM A$(8) »B$<4) »C$(3) fN(Dl) 

X'50 PRINT @DI'FOR 32-K RAM AND DIM NCfDl?*) MEM= "f MEMORY J 'J* 

160 REM GENERATE A VECTOR 

170 N=0 

;LB0 Z = 1000000 

190 R=RND(-l) 

200 REM ILLUSTRATE EFFECT OF SIGN 

210 FOR 1=2 TO Dl 

220 Z=-Z 

230 N(I)=INT(RND(1)*Z) 

240 NEXT I 

.250 PRINT @DJN 

260 REM encode: DIM D$(N*DIM B%) 

270 DIM D$(D1*4) 

280 D$=' • 

290 FOR J=l TO Dl 

300 A$=STR(ABS(N(J) ) ) 

310 REM 1ST CHAR OF A* IS SPACE r 2ND CHAR MAY BE NEG SIGN 

320 L=LEN(A$) 

330 IF L/2=INT(L/2) THEN 360 

340 REM ODD NUMBER OF DIGITS 

350 A$=SEG(A$f 2fL) 

360 L=LEN(A*)/2 

370 B$=' " 

380 IF SGN(N(J))=>0 THEN 400 

390 B$='-' 

400 FOR 1=1 TO L 

410 C$=SEG(A*»2*I-1,2) 

420 N1=VAL<C$) 

430 REM CHR(O) UNSUITABLE r SO INC Nl FOR ASCII CHRS 1- 

440 C$=CHR<N1+1) 

450 B$=:B$XC$ 

460 NEXT I 

470 IF L=3 THEN 520 

480 REM FILL TRAILING NULLS WITH DUMMY 

490 FOR 1=1 TO 3-L 

V^OO B$=B*&*s' 

510 NEXT I 

1^20 D$=REP(B$»J*4-3fO) 

530 NEXT J 

540 REM *** WARNING *** D$ HAS MANY CONTROL CHRS 

550 PRINT @D:D$ 

560 DELETE N 

'570 PRINT @DI'F0R 32K RAM X 

580 REM DECODE 

590 DIM N(D1 ) 

600 FOR J=l TO Dl 



STRING CODING* MEM= 



' J MEMORY J 'J* 



610 




A$ = 




620 




B$ = 


SEG(D*»J*4-3r4) 


630 




FOR 


1=2 TO LENCB*) 


640 






C$=SEG(B$»I» 1) 


650 






IF C$='2' THEN 720 


660 






N1=ASC(C*)-1 


670 






C*=STR(N1) 


680 






IF Nl>9 THEN 700 


690 






C$=REP< '0' r2F0) 


700 






C*=SEG<C*»2f2) 


7 1 






A*=:=A*iC* 


/20 




NEXT I 


730 




P* = 


SEG(B*»1 >1) 


740 




A$ = 


B$&A* 


750 




N( J)=VAL(A*) 


760 


NEXT J 




770 


PRINT @d:n 


780 


END 







FOR 32-K 


RAM AND DIM 


NC1999) MEM- 29629 


a 


-252991 


596147 


-814759 


493581 


-416834 


458856 


-142934 


997684 


-439393 


269945 


-159517 


691999 


-278829 


591752 


-619182 


238893 


-294131 


141654 


-246865 


434129 


-92698 


169368 


-697186 


742116 


-21184 


639556 


-549386 


318785 


-609793 


815129 


-252624 


936187 


-886799 


413928 


-219561 


138855 


-969763 


499179 


-894529 


99622 


-892717 


184493 


-453694 


883523 


-172721 


794873 


-218549 


678429 


-776535 


232198 


-989179 


137942 


-797162 


914788 


-162967 


599419 


-115344 


889214 


-647247 


811832 


-721166 


493496 


-177948 


999925 


-912696 


931829 


-347519 


399795 


-715398 


153628 


-334115 


216792 


-374597 


796688 


-27 


549595 


-962964 


599367 


-551719 


726931 


-582268 


121244 


-817138 


986156 


-636139 


222216 


-975711 


765795 


-549616 


396785 


-739735 


729579 


-351734 


97969 


-38596 


438551 


-819812 


899349 


-137776 


945994 


-444797 


191936 


-218197 


264835 


-285481 


994671 


-551699 


492678 


-751828 


522665 


-899994 


436861 


-329694 


949993 


-494296 


298111 


-35466 


896833 


-229144 



FOR 32K 


RAM t STRING 


CODING* 


MEM* 24645 


9 


-252991 


596147 


-814758 


493581 


-416834 


458856 


-142934 


997694 


-439393 


269945 


-158517 


691999 


-278829 


591752 


-619182 


238893 


-294131 


141654 


-246869 


434129 


-92698 


169368 


-687186 


7421 16 


-21194 


639556 


-549386 


318785 


-689793 


815129 


-252624 


936187 


-886799 


413928 


-219561 


138855 


-969763 


499179 


-4529 


99622 


-2717 


184493 


-453694 


883523 


-172721 


794873 


-218549 


678429 


-776535 


232198 


-589170 


137942 


-797162 


514798 


-162967 


599419 


-115344 


889214 


-647247 


811832 


-721166 


493496 


-177948 


999925 


-912696 


931820 


-347519 


399795 


-715398 


153628 


-334115 


216792 


-374597 


796698 


-27 


549595 


-962964 


599367 


-551719 



'Page 23 in Programming Tip Handbook. 

'Page 72 in Programming Tip Handbook. 

Editor's Note: Mr, Webber contributed these routines to TEKni- 
ques in the hope of generating a discussion into similar techniques. 
A subsequent tip from Phil Somerset touches on the same subject 
and is included in this issue. Related routines are contained in 
TEKniques Vol. 1 No. 9 and Vo. 2 No. 1 (pages 19 and 32 
respectively, in the Programming Tip Handbook). 
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Interfacing MIPS and MARs: General Procedure for Downloading Data to MARs 



by Jim Dillon 
Tektronix, Inc. 
-, Santa aara,CA 

This program allows you to download a 
MIPS Data File to a Modeling and Repor- 
ting software (MARs) Data File 
automatically. 

It also demonstrates the correct way to 
construct a MARs Data File outside of 
MARs. Thus, you can download data from 
any source, i.e., from a data base on a 
mainframe. Just follow a few simple 
procedures in constructing your files: 

A. First construct the MARs model that 
will be the basis for subsequent reports 
and graphs. The size of the maximum 
matrix in this model determines the size 
of the subsequent data matrix. Also 
determine the row and column names. 
This will be discussed further under (C). 

B. Construct a dummy data file referencing 
the model constructed in (A). This file 
will be the file that later is used for the 
downloading. There are two reasons for 
constructing this file beforehand. They 
are . 

,„^ 1. MARs automatically will put the 

DATA file name in the directory; 



2. The model referenced determines the 
row and column name strings and the 
size of the matrix. They must be 
equivalent. 



M DItl T«<r2),P9(Hin),0«(ll3)>F9(M) 
4( T«-" ■ 

47 Mm- 
58 09-e 
53 PRINT "LOAD NIPS DftTfi TftPE IHTO IHTERHflL TOPE ORIii£«««" 

«e PRINT *UHAT niPs FILE 00 you uant transfered?:' 

78 INPUT N 

88 FIND N 

81 READ }33:Tt,D?,0<,F9 

92 Cf'Rl R2 R3 R4 RS R6 R7 

83 CI-C»fRe R9 R18 Rll R12 R13 RH 

92 0««"C1 C2 C3 Ci C3 C6 C? 

93 OfDit'CS C9 CIS Ctl C12 C13 

tea PRINT •RENOUE HIPS DATA TAI^E AMO LOAD HARS DATA TA««M' 

181 PRINT 'WHEN REAOY PRESS RETURN** 

118 INPUT Nl 

120 PRINT -UHICH HARS DATA FILE 00 TOU UANT TO REPLACE''* 

138 INPUT N 

M8 FIND N 

141 0<«'FINANCIAL MODELING AND REPORTING SYSTEH* 

142 CIM83 

143 PRINT -UHAT NrtdE DO YOU UANT TO CtUE TNIS FILE^t' 

144 INPUT L« 

IS8 NRITE 933:0*. Clin.Lt 

198 URITE i>33:C* 

288 URITE »33:Dt 

218 URITE »33;09 

215 PRINT "HARS DATA FILE IS SAUEO.' 

228 END 



C. Run the enclosed program. The last step 
of the program writes 7 data items onto 
the designated MARs Data File. They 
are: 

Q$ = FINANCIAL MODELING 
AND REPORTING SYSTEM 

CI = 103 

M = The number of the MARs Data File 

L$ = Name of the MARs datafile used in 
(B) 



C$ = A string containing the row names 
used in the MARs model. Each name 
is 8 characters long, spaced with 
blanks to complete the string. The 
string is dimensioned 8* (number of 
rows) +1 (see listing). In the MIPS 
example it is dimensioned to 1 13. 

D$ = A string containing the column 
names structured similarly to D$. It 
is dimensioned 8* (number of 
columns) +1. 
D9 = The data matrix containing the 
numeric values to be used by MARs. 
In our MIPS example, it is dimen- 
sioned 14 rows by 13 columns. 

The above elements comprise a total MARs 
Data File and can be used as if it had been 
constructed by MARs itself. 



Editor's Note: MIPS is a popular program in the 4050 Series 
Applications Library (Abstracts # 51/00-0716/0 and # 51/07- 
0717 0). Modeling and Reporting software is a Tektronix Product 
(#4050801) which was introduced approximately two years ago— 
see TEKniques Vol, 2 No. 8 or Business Graphing and Reporting 
reprint tt AX-4451. 



Compact Integer Storage 



by Phil Somerset 
Tektronix, Inc. 
Rocltville, MD 

Suppose you have a large number of integer 
data values to store in a 4050 Series Graphic 
Computing System. When stored in a 
numeric array, each data value requires eight 
bytes of 4050 memory. The method shown 
below can save the same amount of data in 
one-fourth of the space if the data values fall 
within the range ^x ^ 9999. 

Examine the listing. Lines 100-280 encode 
the data and lines 290-380 decode the data. 
Each number is broken into two two- 
character segments, each of wliich is- then 
turned into an ASCII character in the range 
27-126 (lines 190-210). These characters are 
then concatenated into string A$. Thus, a 
character string 1000 bytes long can accom- 
modate 500 positive integer values. 



program to maximize storage capacity. The 
method could be effectively used for storing 
graphic coordinates from the 4956 Graphic 
Tablet which fall in the range to 4000. This 
structure lends itself quite well to editing, 
too, since the string functions can be used. 
For example, the Nth number could be 
deleted by issuing the statement: A$ = REP 
(" ", 2N-1, 2). Another advantage is that 
character string I/O is faster than numeric 
I/O. 

If the requirement exists for storing large 
numbers of positive integers less than 10000, 
this method may save you a lot of time and 
trouble. 



1 INIT 

2 CO TO lie 

4 GO TO ise 

8 GO TO 38e 
24 GO TO 260 

188 REM - INITIALIZE DATA STORAGE AREAS 

110 OIH A«(1080> 

120 1-0 

130 At-'" 

140 REH PUT NUMBERS IHTO STORAGE STRING 

130 PRINT "17 "I 

160 INPUT N 

170 IF N<0 THEN 260 

180 I-I4-1 

190 R-H-INT<N/lOO)»lO0+27 

200 N"(N-R)^ 100+27 

210 8$"CHR(N) 

220 A$-A«liBt 

230 B«*CHR(R) 

240 A«-A»li6f 

250 CO TO 150 

260 PRINT -At IS "ILEN<A$)|' BYTES LONG AHO I" 

-CONTAINS "III* NUMBERS" 



270 PRINT 
280 END 
290 REM - 
300 PRINT 
310 INPUT 



GET NUMBERS OUT OF STORAGE STRING 

•NUMBER? "I 

H 

320 IF N>l/2tLEN<A«> THEN 300 

330 IF N<1 THEN 400 

340 Bt-8EG<Af>2tN-li2> 

3S0 C«-SEG(B«.1>1> 

360 B*-REP<"M.l) 

370 H«<ASC<C»)-27)»100*A8C<B«)-27 

380 PRINT H 

390 GO TO 300 

400 END 



The program is an interactive program, but 
the same method can be built into any 
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Underlining Text 

by Dan Taylor 
Tektronix, Inc. 
Wilsonville, OR 

If you use control-H sequences followed by 
shift-rubout to underline your text, e.g., 




It will locate your text to be underlined, i.e., 
your control-H sequences, and replace it 
with a continuous underline. Also, note the 
"fudge" factor used in statements 370 and 380 
which drops the line a bit, begins it a little to 
the left and ends it a little to the right of the 
text to produce a more eye-appealing un- 
derline. 



A Test of show an ExoaUlf.Qf.UDdCCliDf 
A t€st to show an ExonPlt of undcrHnt 






The first example uses the control- H I shift-rubout sequence: the 
second the above routine. 



try the following routine. 



LIS 




100 C>hTh 1.732.0. ir. 0.3.6.4 




lie RESTORE 




120 RErtD Cl,Ci,C3,C4 




no PRINT "LList a Text filt, with control-H ««qu«r,c 


ts coriwer ted ^o "I 


140 PRINT "drauTi under Imtf" 




1?0 PRINT "iJWhct top* fil« If wout text onf "1 




rc.ti IHPUT J 




iro FIND J 




19H PACE 




190 OH EOF K&-' THEN 469 




200 IMM A«u^9?-. 




210 INPUT (?33:fl« 




.220 IF POS(A«. "b", P'0 THEN 250 




230 PRINT A» 




240 GO TO 210 




250 FOR J-1 TO LEN'.flli 




260 B«-3EG<rt»,J, P 




270 IF BIO'-H" THEN 420 






299 FOR Jl»J+l TO LEN(A») 




309 C$«SEC(A», Jl, 1> 




310 IF C«>"H" THEN 340 




320 NEXT Jl 




330 STOP 




340 J2-J1-J 




350 J-J1+J2-1 




360 INPUT (?32,24:X,Y 




3?0 PRINT &32,21:X-J2*C1-C4,Y-C2 




380 PRINT (P32.20:X-C3,V-C2 




390 PRINT (?32,21:X,Y 




490 GO TO 430 






420 PRINT B«l 




438 NEXT J 




440 PRINT 




450 GO TO 210 




460 END 





( 



Appending 



by Phillip Sivyer 

Consolidated Fertilisers Limited 
Brisbane, Queensland, Australia 

If a program is to be APF*FNDed, and the 
beginning line number of the incoming 
program is the same as the target line number 
( and no increment is specified), the incoming 
program lines are not renumbered. In other 
words, the default increment of 10 does not 
operate in this case. 

This is especially useful when lines I to 100 
are involved, as they must stay at their 
existing line numbers to enable the User- 
Definable Keys to operate correctly. Other 
appUcations include the loading of programs 
containing syntax or tape errors. In both 
cases, after clearing the error, the rest of the 
program lines can be APPENDed to their 
original line numbers. 



Editor's Note: The recovery for syntax and tape errors was included 
in the Input Output column in TEKniques Vol. 4 No. 5. 



LIS 

4 INIT 

5 SET KEY 

€ GO TO lee 

leo REH 

130 REH 

Me REM 

206 REM THIS IS A TEST 

400 GO TO 411 

411 REM 

see REM 

FIN17 
SAU 

DELETE ALL 



4 REM 
FIND 17 
APPEND 4 
LIS 

4 IHIT 

5 SET KEY 

6 GO TO 100 
100 REM 

130 REM 

140 REM 

200 REM THIS IS A TEST 

400 GO TO 411 

4U REM 

500 REM 



Fig. 1 . Original program saved on tape, then 
deleted from memory. 



1 REM 






FIN 17 






APPEND 


1 




US 






I IHIT 






11 SET 


KEY 




21 GO TO 31 




31 REM 






41 REM 






51 REM 






61 REM 


THIS 


IS A TEST 


71 GO TO 81 




81 REM 






91 REM 






DELETE 


ALL 





Fig. 3. When the REM line number is the same 
as the incoming program and no increment is 
specified, the original line numbers are intact. 



Fig. 2. The program in Fig. I appended. Notice 
when the REM line number is different than 
the incoming line number, the 4050 auto- 
matically increments the statements by 10. 



( 



20 



Tekniques 
Vol. 4, No. 6 



Omni-Directional Arrows 



by Roger Chan 

U.S.V. Pharmaceutical Corp. 
Yonkers, NY 




This routine draws any number of arrows on 
the 4050 screen. You use the 4662 Plotter 
joystick to position and orient the arrows. If 
any arrow slope is very close to vertical or 



Conti nue until all arrows requested (line 1 70) 
have been positioned and drawn. 



This routine could be incorporated as a 
horizontal, it will be changed to true vertical subroutine in a graphic program, 
or true horizontal. The origin is considered 
the tail of the arrow. 



Move the Plotter joystick until the arrow tail 
is positioned, then press User- Definable Key 
(ll|)K) H\. Next, position the arrow head 
and press UDK #1. 1 he arrow will be drawn. 



KEY NO. I IS 10 twrtft LiAPA" 

I HIS ib A iiU&kOUriNf 7 liRAW ARROWS ON SCKtEN IN i 



M'RAU 


0.0 


f-KINf 


■OLiU 


GO fU 


JIO 


hOME 




PKINl 


•NO. 


INPUT 




PAGE 




M3 = 




t<l = l 




B3 = 




DELETE 


U,L 


DIM G( 


Nl. 1 


FDR 1 = 


1 TO 


r=o 




GIN (?1 


;m,w 



on ro .'60 



.<6b Rf.M*« HOUND DELTA X AND DELIA r 






</0 Ml-V- GU .1) 






Mio M.^-w ii( I.:') 






.(UL/ KtM** CHECK 10 SEE if 11 IS A SAhf rUl 






JVO If-' Ml'O AND M.:=0 IHEN 6V0 






.■5V5 hLh»* IF- SLOPE IS CLOSE 10 WtRtlCAL Li 


NE Oh' 


HORiZUNT 


JV6 REM** MANE THEN INTO CITHER f RUE VERT. 


OR HL 


R I Z , Ul\ 


39? REM** OF IHE DIPFERENCE SET TO ZERO 






400 IF -l-.Ml AND Ml 1 THEN 430 






'UO IF -1-.M2 AND M2 1 THEN 450 






420 GO TO 490 







GO TO 530 














REM «* FOUND SLOPE AND THE PERCEN 


AGE 


Dlf 


ference in 


TERM OF 


REM «* THE LINE LENGTH 












M3=M2/M1 














Ei3=l/SQft(Ml''2 + M2"2) 














B1=^M1«E(3 














B2«M2*Ei3 














MOVE G(I.l>fG(I.2) 














IF M3<0 THEN 630 














IF M2=0 THEN 630 














IF hl=0 AND W -.0(1,2) 


THEN 


590 










IF Gdi D.-^-V OR G<I»2 


:-W TF 


EN 610 










IF M1=0 AND W; 0(1,2) 


THEN 


610 










DRAW ^-Bl*(B2-..0) ,U- 


Ei2+l*(B2-0) 










GO TO 720 














DRAW V-B1*(B2.. 0) ,W- 


B2-1* 


B2=0)+B 


:*(M 


= 


AND V.W) 




GO TO ?20 














if Li\.l,i) -W AND 6(I» 


J)..^W 


HEN 670 










IF M2-0 AND V G(I,1) 


THEN 


670 










DRAW U+B1»(B2*0)-P1« 


(B2'.-^0) .U + B2* 


B2»0)-F 


2«(B2 0) 




GO 10 rjo 














DRAW U- Bl rW- H.' 














GO m ';'o 














F'k 1 N ( 'NO ARROW • 
I=«l -I 














NEXT i 

REM ** ARROW HEAD SUBROO T 


NE 










LiiN G(If 3) fG( i ,4) 














REM *« DETERMINE THE 


SLOPE AND RO 


(ATE 




aw HEAD ACCORDINbL 


IF M1«0 THEN 790 














IF M2=0 THEN 840 














IF Ml AND M2:0 OR 


(Ml 


AND M2 


J) THEN 


890 




A=ArN(M3) 














GO TO 900 














IF M2.0 THEN 820 














ft=90 














GO TO 900 














A = 2/'0 














GO TO 900 














IF Ml .0 IHEN S70 














A = 














GO 10 900 














A=180 














GO W 900 














A=ArN(M3)+lB0 














KLirATE A 














kliRAW 0.0.::, 














biN 0^ 1 .S) .li> 1.6) 














RDKAW I. 0.5 














GIN lj( I. 7) .Ui 1.8) 














RDRAW -l.-O.t. 














GIN G( 1 .9) .G( i . 10) 














RDRAU 0.0.5 














A = 














NEXT 1 
















I'.ditor's Note: In place of statements 1 70 and 180, you could have 
iin mlinitc loop with a IJOK to terminate the loop. 
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Determining Data File Type on the 4907 



by Kevin Talbot 
Mannesmann- Tally 
Kent, WA 

Sometimes after writing a program that 
accessed various data files on our 4907, we 
found that a data file it used had been created 
with "PRINT" statements (ASCII file), but 
the program contained "READ" statements, 
thus wanted the data in binary format. 
Rather than rewriting all of the programs 
and data files so they were compatible, the 
following routine was added to most of our 
programs so either a READ (binary) or 
INPUT (ASCII) could be used to access the 
data from a disk file. 

The routine uses the CAL-L"Fn.E" utility in 
the 4907 ROM pack. The CALL 'FILE' in 
statement 350 gets the current file status 
message of the file whose name is in A$. 
Although the complete status message is 189 
characters long plus the file identifier, we 
only need the first 13 characters since the 
"attributes" of the file (ASCII, public, etc.) 
are contained within these first characters. 
Thus, the default length of 72 characters of 
X$ need not concern us. 



If the file does not exi.st (due to a spelling 
error, or perhaps the wrong disk being in the 
4907), the length of X$ will be and indicates 
an error condition; T is set to -1 (statements 
360, 470-490). 

Once the file status message is in X$, we 
check it one character at a time to see if there 
is an "A" indicating the data file is in ASCII 
format (statements 370-390). If none of the 
characters is an "A", then the file is assumed 
to be binary and the variable T is set 
accordingly to +1 (statements 410-430). If 
one of the characters is an "A", then a jump 
out of the loop is done and T is set to 
(statements 390-440-460). 



Alter calling this subroutine, our programs 
then use the value of T to determine if a jump 
to a READ or WRITE statement (binary, 
T=l) is in order, or a jump to an INPUT or 
PRINT statement (ASCII, T=0) is in order. 
The error condition is trapped T=- 1) and can 
be used to prompt the user to check spelling, 
etc. For our convenience, the routine returns 
with the file open for "full" access (read or 
write) in line 500. 



A similar program can be written for the 
internal tape drive of the 4050. By using the 
TYP(O) statement, ajump to the appropriate 
statement (READ/ INPUT or WRITE/ 
PRINT) can be performed based on the 
value of TYP (0). 




F.ditor's Note: rhe TYF* command will also work on the disk, 
however, it would be TYP (1) through TYP (9) depending on the 
logical file number assigned. 

Note that although statement 390 will cause the program to jump 
out of a loop, if the file is ASCH, the memory allocated to keep 
track of the loop is recovered when the RETURN command in 
statement 510 is executed. 



( 



Clearing the Stack 

by Dan Taylor 
Tektronix, Inc. 
Wilsonville, OR 

Several programming tips have been written' 
on how to exit a FOR/ NEXT loop using a 
dummy loop, e.g., 

200 FOR dummy = 1 to 1 
FOR I = . . . 

GO TO 400 

NEXT I 
400 NEXT dummy 

This dummy FOR/ NEXT loop has a much 
wider application. It can be used to "flush" 
part or all of the GOSUB/FOR stack^: 

1. To flush the entire stack, execute 

FOR dummy = I to 1 

when the program starts. 

2. Whenever you want the stack cut back, 
execute 

NEXT dummy 

This will get rid of all GOSUB/ FOR on 
the slack since the most recent FOR 
dummy. 



3. To re-arm it, do another FOR dummy = 1 
to 1. 

4. To flush part of the stack, use other 
dummy variables in your program and 
execute FOR dummy. . . when you want 
to establish a cut-back point. 

rhc following examples illustrate what 
happens to the memory allocated for the 
stack. 



180 INIT 

118 PRIHT "Proaran itart, nmnoru • "(MEnORY 

128 FOR I-l TO 1 

138 PRINT 'DunHjii loop tcti ncnory » 'IMEHORY 

148 GOSUB 288 

289 PRINT "Goflub 288 h«r«) miiory - "IIIENORY 

218 GOSUB 388 

398 PRINT "Cotub 389 h«r«| Htnory ■ "IMEHORY 

318 NEXT I 

328 PRINT "COHPlttt flu«h| MBory ■ "IHEHORY 

338 PRINT 'JA riturn will rtturn to Utwboard* 

348 RETURN 

RUN 

ProwttB stapti Htnorw ■ 38354 
Dunnv loop sat* n«noru ■ 38320 
Gosub 288 herd nvnorw ■ 38322 
Gosub 308 herd ncnoru ■ 303 U 
ConplcU flufhi RtMoru ■ 303S4 

A rtturn will return to kiyboarel 



108 INIT 

118 PRINT "ProtroH ftort, ««norw -"IMEMORY 

128 GOSUB 280 

138 PRINT 'ProiraN rtturned to line 1381 ncnoru - "MENORY 

148 STOP 

288 PRINT 'Gosub 200 herd nenorw - "IMEHORY 

218 FOR r«l TO 1 

228 PRINT 'First dunnw loop sett nenory - 'IHEHORY 

230 GOSUB 380 

248 PRINT 'Progran returned to line 2401 nenorw - 'IHCHORY 

230 END 

300 PRINT 'Gosub 300 herel Henory - 'INEHORY 

310 FOR J-1 TO 1 

320 PRINT 'Secontl 

330 FOR K-1 TO It 

340 PRINT HtHORY 

3S0 IF IC3 TNIH 400 

3«B NEXT K 

499 PRINT "JuRsod out a* loepl nmn^t^M • "IHIMORY 

410 GOSUB 900 

300 PRINT 'Gosub 300 herd nemrw - 'IHEHORY 

510 NEXT J 

520 PRINT "Partial flushl H««orw ■ "IHEMORY 

330 RETURN 



Fig, 2. 



RUN 

Profran starti nenory "29999 

Gosub 200 hertl nenory ■ 29993 

First dunny loop setl nenory ■ 299C? 

Gosub 300 herd nenory ■ 299€1 

Second dunny loop sett nenory •■ 29933 

29913 

29913 

29913 

Junpcd out of loop I nenory ■ 29909 
Gosub 300 herel nenory ■ 29983 
Partial flushl nenory > 299C1 
Progran. returned to Tine 2401 nenory ■ 29967 



Fig, 1 . Complete stack flush. 



Fig. 3. Partial flush. The first GOSUB (statement 
120) is still pending, i.e., another RETURN would 
have returned the program to line ISO, However, 
the unfinished loop (statement 330) and GOSUB in 
statement 410 were flushed from the stack when 
statement 510 was executed. 



'TEKniques Vol. I No. 9, Vol. 2 No. 2, Vol. 2 No. 4 and Vol. 3 No. 4 
(pages 21. M, 45. and 83 in the Programming Tip Handbook), 

- 1 he push-down/ pop-up stack located in RAM used to track 
program flow, 



i 
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Disk Transfers of Arrays 

by Arthur Ungar 
Planning Systems 
Lafayette, CA 

You can greatly speed up information 
transfer to and from the disk by array reads 
and writes, rather than transferring in- 
dividual data items. However, sometimes the 
actual array size is not known at the start of 
the program. The following example shows 
how arrays can be redimensioned for ef- 
ficient disk transfer. 



Editor's Note: For related Programming Tips see TEKniques Vol. 3 
No. 3 (Page 79 in Programming Tip handbook) "Dynamic Memory 
Management— Arrays" and Vol 4, No. I, "Paging Using the 4907." 
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Modified Auto-Paging 

by Raymond DeMers 
Tektronix, Inc. 
Rochester, NY 



In programs where the operator has to 
answer many questions, the AUTO- PAGE 
feature (PRINT @ 32,26:2) may be used to 
clear the screen on a "PAGE FULL". 

However, repetition of a question because of 
unacceptable operator input may cause the 
AUTO-PAGE to occur in the middle of a 



multi-line print sequence with only the last 
part of the print statement appearing at the 
top of the new page. This may be avoided by 
a GOSUB to a routine which checks how far 
it is to the bottom of the page after each 
question. 

By inserting a GOSUB before each sequence 
of print statements, a new page is started if 
there is not room to complete another 
sequence) The sample val ue of 20 i n li ne 1 1 
may be changed to suit the program. 



999 REH PAGING SUBROUTINE 
IMe INPUT G32f24:)<>Y 
leie IF Y>28 TNEN 1838 
1828 PAGE 
1838 RETURN 



Butterfly Sort Extended 

by Dan Taylor 
Tektronix, Inc. 
Wilsonvilie, OR 

The November 1979 issue of TEKniques 
(Vol, 3 No. 7, or page 94 in the Programming 
Tip Handbook), contained the Butterfly sort 
algorithm for strings. It used one 4050 string 
variable (A$) to emulate a linear array of 
strings. The sorting was done based on a 
string comparison in line 1620 (IF B$:^D$ 
THEN 1650), 

If this simple comparison is not adequate, 
e.g., each string in the linear array may 
contain a number of subfields (such as last 
name, first name, social security number, 



and so on), and you want the strings sorted 
based on one (or more) subficld, just do the 
following. 

Expand line 1620 to a number of lines of 
code to determine, in some fashion, if B$"^" 
D$ (for whatever rule of " > ' you want). For 
example, if your string contained name and 
social security number with positions 1 to 20 
allowed for the name and 21 to 31 for the 
social security number, the following would 
sort in ascending order of the social security 
number: 



1628 Q$«SEG(B$,21ill> 
1622 R$«SEG<Dff21ill) 
1624 IF Q$«>R$ THEN 1658 



You could also use more .scratch variables 
and the string functions, SHG, POS, LEN, 
etc., to segregate more subfields to compare. 

When you are adding code to this routine, be 
sure to change statement 1130 to allow for 
memory used for the extra code. If you don't, 
it will cause memory full to occur before your 
sort is complete. ^) 
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Please Correct Your Catalog 



The 1980 4050 Series Applications Library Program Catalog recently distributed contained a few errors in part numbers. 
Please correct your catalog as follows: 

Page Item 



99 



101 



103 



104 



4050-4052-4054 Standard Accessories 
System Software Tape 
System Software Back-up Tape 

4051-4052-4054 Optional Accessories 

Tape Head Alignment Module Manual 

4050A10 Statistics Vol. 4 

Overlay (nonlinear programs) 
4050B01 Opt. 5 Modeling and Reporting (disc) 

Reference Manual 

Overlay 
4050D01 Statistics-Test and Distributions 

Reference Manual 

Autoload Tape 

System Disc 

4642 Optional Accessories 

Ribbon 
4662 Standard Accessories 

RS-232 15 ft. I/F cable 

4662 Optional Accessories 
4662 Test Tape Manual 

4663 Options 
Opt. 31 
Opt. 32 

4663 Optional Pens 

Wet Ink— Pen Replacement Part Kit 



Correct Part # 

020-0160-03 
020-0161-03 

070-3385-00 

334-3035-01 

070-2673-01 
334-3377-00 

070-3431-00 
delete 
delete 

002-1451-01 
012-0690-01 
070-2366-00 

020-0355-01 
020-0388-02 

006-2968-01 



( 



Please change the description on page 107 under 4924 Optional Accessories, GPIB 1/ F Cable, 3 meter, to read: GPIB I/F 
Cable, 2 meter (6.50. ^ 



i 
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Transferring UDK Overlay Legends 



by Bill Detweiler 

West Virginia University 
IMorgantown, WV 

Persons who have ordered programs 
through the AppHcations Library are 
probably aware of the User- Definable Key 
( UDK) overlayfigure included in some of the 
program documentation. Often, the user 
reproduces this UDK directory on a plastic 
overlay blank (Tektronix Part No. 334-2630- 
00), either by handprinting or through the 
use of transfer lettering. An alternative 



method is (o copy (he ligurc (o a \ciox 
transparency. Ilic transparency is then 
mounted onto the blank. This (ckniquc is 
generally neater than hand lettering and 
faster than the transfer method. 

Instructions are as follows: 

1. Copy the overlay figure found in the 
program documentation to a Xerox 
transparency. 

2. Mount the transparency on the plastic 
overlay blank usinga spray adhesive such 
as Scotch Photo Mount. 



3. Place the overlay (ace down and (rim the 
transparency with a hobby knife, so that 
It conforms to the shape oi' the blank. 

There are two drawbacks to this method. 
These are, the small degree of distortion 
inherent in the copy process, and the fact that 
some overlay figures are poorly typed. 

The use of Xerox transparencies is, however, 
an attractive alternative to the other methods 
commonly employed. 



Graphic Programming: Referesh on the 4051/4052 



by Patricia Kelley 
TEKniques Staff 

If you want to display a character on the 
screen, but not store it, use PRI (5)32,23: "c" 
where c = the character. For instance, try the 
following routine. 



300 DIM X<4),Y<4.) 

3i8 DATA 39,45,68,83,20,48,65,48 

320 READ X,Y 

338 FOR I«l TO 4 

340 MOUE X<n.Y<I> 

358 FOR J-1 TO 18 

368 PRINT ^32,24:"*" 

370 NEXT J 

380 NEXT I 



The character "*" is refreshed on the display 
lor about 1/4 second each time statement 
360 is executed. Only the first character of a 
designated string will be executed. For ex- 
ample, if statement 360 had read 

368 PRINT ©32,24: -TALK" 
only the "T" would be refreshed. 



Clean your Disk Read/ Write Head 



(From the 4907 Service Manual) 

The Read/ Write head of your 4907 Disk unit 
should be cleaned after each 12 months of 
normal use. The procedure is: 

1. Remove power cable. 

2. Remove top cover of cabinet (3 screws 
on each side). 

3. Use a cotton swab and denatured 
alcohol to remove accumulated oxide 
from the head. Or, use one of the 
commercially prepared aerosol 
magnetic head cleaners. 



Note: The head should not require frequent cleaning. Clean once a 
year, as necessary. 

CAUTION: To prevent possible damage to the torsion spring, the 
load arm should never be opened over 90 degrees from the carriage 
assembly, or while at track 00. 




Manually rotate the motor shaft to advance the 
read/write head away from track 00. 
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string Comparisons 

by Patricia Kcllcy 
TEKniques Staff 



When you are checking for a numeric value 
in a string variable, don't inadvertently insert 
an extra step. For example. 



IF ASC<A$)>57 OR A8C<A*)<48 THEN 



icquircs the 4050 System to convert the 
character in A$ to its decimal equivalent and 
then compare. Whereas, if you had used 



IF A$>>9" OR A$<*%r THEN 



A straightforward comparison would have 
accomplished the same end without the 
needless conversion. 



The following simple routine carries the idea 
a bit further. 



LIS 




IW INIT 




U8 PRINT "INPUT At "I 




I2t INPUT At 




130 IF A»<--9- AND A$->-e" 


THEN 288 


14e PRINT "TRY AGAIN- 




158 GO TO lie 




168 END 




288 A-UAL<Af> 




218 PRINT A 




228 END 





STR Function 

by Patricia Kelley 
TEKniques Staff 



The ST Ring Function converts a numeric 
expression to a character string and assigns 
the character string to the specified target 
string variable. If you dimension your target 
string to something less than the del a uh ol 72 
characters, you should be aware ol the 
conversion format (which is the default 
format when PRINTing numbers). 



The number is printed as specified unless: 

it's between - 1 and + 1 and has more than 
14 character positions including the 
decimal point 

it's between -1 and +1 and has 3 or more 
leading zeros 

it's not between -1 and +1 and has more 
than 13 character positions including the 
decimal point 

it's greater than 10 million and in stan- 
dard notation 

it's outside the numeric range of the 4050 
System 



In all cases, the STR Function always puts a 
space as the first character in the target 
string. 

The following number is printed as specified, 
but with a leading space resulting in a string 
length of 3. 



A$-STR<29) 
A« 

29 
LEN A« 

3 



Below a 1 7 character number between - 1 and 
1 is reduced to 14 character positions in- 
cluding the leading zero and decimal, plus 
two positions for the leading space and 
negative sign, resulting in a string length of 
16. 



B«-. 12345678981234567 
B$«STR<B) 
B$ 

-8.123456789812 
LEN B$ 
16 



The following uses the same format as the 
picccding example, however, the positive 
sign isn't included, resulting in 15 character 
positions. 



c«* 


.12345678981234567 


c$- 


5TR<C> 


Cf 




8. 


123456789812 


LEN 


C$ 


15 





A number between -I and 1 with three or 
more leading zeroes will be converted to 
scientific notation. 



C-. 


8881 


c$- 


•STR<C> 


c$ 




1. 


8E-4 


LEh 


C* 


7 





A number not between - 1 and 1 but less than 
10 million will be printed as specified, up to 
13 character positions, including the decimal 
point. In the following example, notice 13 
characters plus the minus sign and leading 
space result in a length of 15. 



D»~89. 8 123456789 12 

Ot-STR<D> 

Dt 

-89.8123456789 
LEN Df 

15 



Notice the rounding: 



D-+9999999. 1234555 

D$«STR<D) 

D» 

9999999. 12346 
LEN D$ 

14 



A number whose absolute value is greater 
than 10 million will be converted to scientific 
notation with up to 9 digits of accuracy to the 
right of the decimal. 



E»«8TR< 12987765. 345) 
E* 

1.298776535E+7 
LEN E$ 

15 



Nine dii^its to the right of the decimal, one to the 
left, plus the devinuii, the scivntifw notation and the 
leading space result in a length of 15 characters. 



E»«STR<- 12987765) 


£t 






-1 


2987765E+7 


LEN 


E$ 




14 







An eight character number results in a 14 character 
length. 



Et«STR<89t45) 
E« 

5.278983433E't'87 
LEN E$ 

16 



The STR function is not restricted to constants. It 
will work for any numeric expression whose result 
is within the numeric range of the 4050 system. 



Constants specified outside of the numeric 
range of the 4050 System will be converted to 
the number closest to the range boundary. 



F$«STR<345.892E4-345> 
F* 

8.988465674E4387 
LEH Ft 

17 



FfSTR < - 1 . 234897654E499 ) 
Ft 

-8.988469674E4387 
LEN F« 

18 



For more information on the PRINT for- 
mat, see the INPUT/ OUTPUT section of 
your 4050 Graphic System Reference 
Manual. JS^ 
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4050 Series Applications Library Program Abstracts 



Order 

Documentation and program listings of each program are 
available for a nominal charge. Programs will be put on tape or 
disc for a small recording fee per program plus the charge for the 
tape cartridge or flexible disc. One tape /disc will hold several 
programs. Programs will be recorded on like media only, i.e.. 
programs on tape cannot be sent on disc and vice versa unless so 
noted in the abstract. 

(The program material contained herein is supplied without 
warranty or representation of any kind. Tektronix. Inc. assumes 
no responsibility and shall have no liability, consequential or 
otherwise, of any kind arising from the use of this program 
material or any part thereof.) 



Domestic U.S. Prices: 

Documentation and listings 
Recording Fee 
Tape Cartridge 
Flexible Disc 



$20 per program 
5 per program 
30 per tape 
15 per disc 



Contribute 

Contribute one program to the Library and receive three in 
exchange. Send in the membership card from your 4050 Series 
Graphic System Reference Manual to get the details. Or call us 
(503)682-3411. exi. 3618. 

Forms 

Please use the Applications Library Order Form. Order forms 
are included in the Membership Packet and are available from 
your local Tektronix Sales Engineer. 

Outside U.S. 

Program contributions or orders outside the U.S. must he 
processed through the local Tektronix sales office or sent to one 
oj the Libraries serving your area. See Library A ddresses section. 



ABSTRACT #: 51/00-0603/0 

Title: Mortgage/ Loan Payment Table 

Author: Tim Giesbers 

Tektronix, Inc. 

Beaverton, OR 
Memory Requirement: 8K 
Statements: 1 15 
Files: J ASCII Program 

The program will compute a table for a 
mortgage or loan. Each line of the table 
includes a month, year, payment for the 
month, interest for the month, principal paid 
for the month and the balance at the end of 
the month. 

User Prompted Input: 

Amount of the mortgage/loan 

Interest rate (in percent) 

Amount of the payment per month 

When payment starts (month and year) 

Number of months to be printed in the 

table 

The program will output the number of 
months it will take to pay off the 
mortgage/ loan and then print the table. The 
table will be printed with 21 lines per page 
and requires a carriage return to continue 
(allowing the user to make a hard copy of the 
screen if desired). 



Enter the anount of the Mortgage: 1008 

Enter the interest rate <in percent): 10 

Enter the anount of the paynent per month: 100 

Payncnts start when (i.e. '2»80' is February? 1980): 1»80 

Hoy nany wonths do you yant printed: 12 



Your last paynent will be in Month no. 11 



tttttttntttt%ttttt%t%tt%ttttn%t%itt%%%%%t%tt%%%t%n%%%nt%%%ttt%tt%t%t 


Month 


Paywent 


Interest 


Principal 


Balance 


tttttttttttttt%tt%tttt%%ttt%ttttt%%tttttt%ttt%t%%tt%t%tt%t%tntttttttt%t 1 


JAN 88 


$180.00 


$8.33 


$91.67 


$908,33 


FEB 80 


$100.00 


$7.37 


$92.43 


$815.90 


Mf^R 88 


$100.00 


$6.80 


$93.20 


$722.70 


APR 88 


$100.08 


$6.82 


$93,98 


$628.72 


MAY 88 


$100.00 


$5.24 


$94.76 


$533.96 


JUN 88 


$100.00 


$4.45 


$95.55 


$438.41 


JUL 80 


$100.00 


$3.65 


$96.35 


$342.07 


AUG 80 


$100.00 


$2.85 


$97.15 


$244.92 


SEP 80 


$100.00 


$2.04 


$97.96 


$146.96 


OCT 80 


$100.00 


$1.22 


$98.78 


$48.18 


NOU 80 


$100.00 


$8.40 


$99.60 


$8.00 


tttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt 


Do you yant 


to run this 


prograM again (Y/fcD 
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ABSTRACT #: 51/00-1606/0 

liilc: Performance Prediction of Sail craft 

Author: Alex Gares 

University of South Florida 

lampa, Fl. 
Memory Requirement: 32K 
Peripherals: Optional— 4641 Printer 
—4662 Plotter 
Statements: 589 
Files: 1 ASCII Program 

The program allows the user to predict the 
speed of any sailing craft with respect to the 
wind velocity and angel to the true or 
apparent wind direction Polar diagrams are 
generated of the ratios of: 

Boat speed to true wind speed 
Boat speed to apparent wind speed 
Velocity made good to windward lo true 
wind speed 

The program permits the sailhoat dcsiguci, 
handicapper or pertormance sailor It) 
evaluate fully the effect of the various 
significant parameters on sailing craft 
velocities at all angles to the apparent and 
true wind and generate polar plots. 

A test routine for a catamaran is incltjded in 
the program todemonstrate the output. Also 
included in the program is a picture of the 
vectors involved. 

User Prompted Input: 

Sail area in FT 2 
Sail lift coefficient 
Sail drag coefficient 
Waterline length in FT 
Waterline length from bow to widest 
beam in FT 
His placement in I F^S 
Prismatic coefficient 
Hull drag force at 3.16 knots in IBS 
True wind velocity in knots 
Angle between true wind and boat veloci- 
ty in degrees 

The program is a result of a senior level 
engineering research project and stems from 
a study of over 20 references in the field. 



TEST CASE FOR ft CATftHARAN HULL 

THE FOLLOWING UALUES HILL BE USED FOR THE TEST CASE 

SAIL AREA-1425 FTt2 

SAIL LIFT COEFFICIEHT-1.9 

SAIL DRAG COEFFICIENT-9.2 

WATERLINE LEHCTH-35 FT. 

WATERLINE LENGTH FROM BOH TO HIDEST BEAM -19 FT 

DISPLACEMENT "23981 LBS. 

PRISMATIC COEFFICIENT -e./S 

HULL DRAG AT J. 16 KNOTS -61 LBS, 

TRUE HIND VELOCITY -13 KNOTS 

HIT 1 FOR COMPLETE POLAR DIAGRAMS, HIT 2 IF NOT. 






■ SAU IMi 1K]Ar 



( 



polar Plot of vb/va vs gamma 
displacement 23081 

SAIu AREA 1425 , , 

PRISMATIC COEEF 75 \ \ I 
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ABSTRACT #: 51/00-9544/0 

Title: Pie Chart with Shading and 
Transparency Routines 

Author: Fred Fachet 

Social Security Administration 

Chicago, IL 
Memory Requirement: 32 K 
Peripherals: 4662 Plotter 
Statements: 655 
Files: 1 ASCII Program 

The program allows the user to create a pie 
chart, and optionally, alter data values, main 
title, subtitle and segment or slice labels. The 
pie is previewed on the 4050 screen, and can 
be plotted on the 4662 Plotter. In the Plotter 
mode, the user has the option of changing 
pen colors for the title (main and sub), one or 
more segments of the pie, and the border. 

The user may also elect to offset one or more 
segments of the pie. For additional em- 
phasis, apart from color options on the 4662 
Plotter, the user may also use the shading 
routine to outline the segment and have it 
shaded. 

The transparency routines allow the user to 
annotate the chart with standard horizontal 
or vertical text. The user may also select 
different character fonts to label the pie chart 
with non-standard characters for foreign 
languages or currencies. 

The shade and transparency routines may be 
used independently to highlight and/ or an- 
notate, make geometric figures, produce 
text, overhead transparencies, report cover 
sheets and so on. 



C<a>l$Nl? FONT 8 

A4A<)ilt00» FONT 1 

flauu£IOOf FONT 2 

C<3>£*Nlf FONT 3 

i < 6 > • $ N I * FONT 4 

C ^ 3 -» • t N K f FONT 3 

SELECT FONT NUHBER FOR PLOTTER 

DEFAULT IS 8 — JUST PRESS RETURN: 





ttt MENU ttt 




LEFT JUSTIFY TEXT ■ T 




RICNT JUSTIFY TEXT • R 




USER POSITION TEXT ■ P 




UERTICAL TEXT - U 




ARROU • A 




OUAL - 




CIRCLE - C 




LINE ■ L 




BOX • B 




OIAHOND - D 




REPEAT LAST FIGURE - I 


SELECT FUNCTION: 





■TA-^PlE ^11 CHAR' 
WITH SHADING 




User- Definable Keys Provide: 

Pie Chart 
Change Data 
Screen 
Plotter 
Shade 

Transparency 
Fonts 
Menu/ Restart 

User Prompted Input: 

Title 

Sub-title 

Number of segments 

Labels (12 characters maximum) 

Data values 

The shading program was modified from 
TEKniques Vol. 3, No. I Programming Tip. 
Special thanks go to Nathan Oxhandler 
(Tektronix, Inc., Santa Clara Field Office) 
for his conception of the exploding pie chart 
technique. 
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ABSTRACT #: 51/00-5703/0 

ritle: One Factor Repeated Measures 
Analysis of Variance 

Author: Richard M. Engeman 

U.S. Fish and Wildlife Service 
Denver, CO 

Memory Requirements: 16K 

Peripherals: Optional — 4641 Printer 

Statements: 193 

Files: I ASCII Program 

The program calculates the univariate 
analysis of variance for data from a one 
factor repeated measures experimental 
design (see Winer, Statistical Principles in 
Experimental Design, pps 261-308). 

Data is input from the keyboard and allows 
the user to make any necessary corrections. 
The program then outputs the following: 

Analysis of variance table 

Subject means 

Means for treatment levels 

All output, including the raw data, may be 
printed to the screen or to the 4641 Printer. 

User Prompted Input: 

Number of treatments 

Number of subjects 

Each subject's data 

Output device (screen or printer) 



THE DATA STRUCTURE AHD HOTATIOH ARE AS FOLLOWS 
TREATMENT 


kSUBJECTi 


1 2 K K 


K 1 1 

K 2 
K N 


xli xl2....xlK K 
t x21 x22....x2K K 

\ xHl xH2 xNK ! 





SUBJECT 


MEANS 


















SUBJECT 




?7 
















SUBJECT 




16 
















SUBJECT 




23 
















SUBJECT 




34 
















SUBJECT 




24 


5 














PRESS G 


li RETURN AND 


THE 


SCREEN 


uni 


PAGE 




AHO THE 


HEAHS 


FOR 


TREATMENT 


LEUEL3 U 


ILL PRINT 


OUT 



( 



THIS 


IS 


YOUR 


RAU 


DATA 












30 


28 


16 34 
















14 


18 


18 22 
















24 


29 


18 39 
















38 


34 


29 44 
















26 


28 


14 39 
















DO 


i-OU 


HAHT 


HE 


DATA 


PRINTED 


ON 


ANOTHER 


DEUICE? 


Y OR N 



MEANS FOR 


TREATMENT 


1 

1 

LEUELS 


LEUEL 1 


26.4 




LEUEL 2 


25.6 




LEUEL 3 


15.fi 




LEMEL 4 


32 




AHOTHER DATA SET? Y 


OR N 



SOURCE 


AOU TABLE 
DF SS MS 


F 


HITHIH SUBJECT 

BETWEEN SUBJECT 

TREATMENTS 

RESIDUAL 


4. 689,699 
13. 811.909 

3, 698.299 232.733 
12. 112.899 9.499 


24.739 


TOTAL 

PRESS G i RETURN 
AND THE PROGRAM 


19. 1491.999 

AND THE SCREEN HILL PAGE 
HILL CONTINUE 





M) 



( 



( 
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4050 Series Applications Libraries 




Africa, Europe, Middle East 


Canada 


Japan 


Contact local sales office 


4050 Series Applications Library 


4050 Series Applications Library 




Tektronix Canada Ltd. 


Sony/ Tektronix Corporation 


Australia 


P.O. Box 6500 


9-31 Kitashinagawa-5 




Barrie, Ontario 


Tokyo 141 Japan 


4050 Series Applications Library 


Canada L4M 4V3 




Tektronix Australia Pty. Limited 




United States 


Sydney 

80 Waterloo Road 

North Ryde, N.S.W. 2113 


Caribbean, Latin America 
and Far East (excl. Japan) 

IDD Group 


4050 Series Applications Library 
Tektronix, Inc. 
Group 451 




Export Marketing 


P.O. Box 500 




Tektronix, Inc. 


Beaverton, Oregon 97077 




P.O. Box 500 






Beaverton, Oregon 97077 






U.S.A. 
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